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ABSTRACT 

The  flowfield  downstream  of  a  vertically-launched  surface-to-air  missile 
model  at  an  angle  of  attack  of  50°  and  a  Reynolds  number  of  1.1  x  105  was 
investigated  in  a  wind  tunnel  of  the  Naval  Postgraduate  School.  The  goal  of  this 
thesis  is  to  experimentally  validate  the  pressure  measurement  system  for  flowfield 
variables  with  elevated  levels  of  turbulence;  to  determine  the  location  and  intensity 
of  the  asymmetric  vortices  in  the  wake  of  the  VLSAM  model  at  a  raised  level  of 
freestream  turbulence;  and  to  display  the  asymmetric  vortices  by  velocity  mapping 
and  pressure  contours.  The  purpose  is  to  correlate  the  results  with  the  force 
measurements  of  Rabang  to  provide  a  greater  understanding  of  the  vortex 
flowfield.  The  body-only  configuration  was  tested.  Two  flowfield  conditions  were 
treated:  the  nominal  ambient  wind  tunnel  condition,  and  a  condition  with  grid- 
generated  turbulence  of  3.8%  turbulence  intensity  and  a  dissipation  length  scale  of 
1.7  inches.  The  following  conclusions  were  reached:  1)  The  relative  strengths  of 
the  asymmetric  vortices  can  be  noted  by  the  sharp  spike  shape  in  the  ambient 
condition;  this  condition  becomes  diffused  and  becomes  fatter  in  the  turbulent 
condition;  2)  The  right  side  vortex  has  greater  strength  than  the  left  side  one  as 
seen  by  the  diffusion  in  the  total  pressure  coefficient  and  static  pressure  coefficient 
contours  with  and  without  a  turbulent  condition;  3)  an  increase  in  turbulence 
intensity  tends  to  reduce  the  strength  of  the  asymmetric  nose-generated  vortices; 
also  pushes  the  two  asymmetric  vortices  closer  together;  4)  and  crossflow 
velocities  were  examined  and  were  found  to  indicate  the  behavior  denoted  by  the 
pressure  contours. 
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I.    INTRODUCTION 

A.  BACKGROUND 

In  the  past  there  has  been  a  need  for  trainable  launchers,  both  in  azimuth  and  in 
elevation,  so  that  the  anti-aircraft  missiles  could  be  fired  into  gathering  and 
guidance  beams  which  direct  them  toward  their  targets.  By  way  of  contrast,  a 
missile  fired  from  a  vertical  launcher  has  to  guide  itself  into  the  appropriate 
direction  and  heading.  [Ref.l] 

Vertical  launchers  are  part  of  a  general  evolution  in  anti-aircraft  missile 
systems  towards  a  higher  rate  of  target  engagement,  which  has  three 
complementary  aspects.  The  first  aspect  is  the  number  of  targets  arriving 
simultaneously  or  nearly  simultaneously.  The  ship  must  attempt  to  overcome  the 
usual  limitation  of  one  engagement  per  fire  control  radar.  Having  overcome  this 
limitation,  the  ship  must  keep  enough  defensive  missiles  in  the  air  at  any  one  time  to 
fully  exploit  fire  control  capacity.  The  US  AEGIS  class  ships  are  equipped  with  the 
US  Mark  26  trainable  launcher  which  fires  about  twice  as  fast  as  its  predecessor,  the 
Mark  13.  The  new  Martin  Mark  41  vertical  launcher  fires  about  five  times  faster 
than  the  US  Mark  13  trainable  launcher,  i.e.,  at  about  one  missile  per  second. 
[Ref.  1] 

The  second  aspect  is  the  number  of  targets  which  appear  over  an  extended 
length  of  time.  Current  point  defense  systems,  such  as  SEA  SPARROW  and  SEA 
WOLF,  generally  employ  box  launchers  containing  six  or  eight  rounds.  Once  they 
have  been  fired  off,  the  launcher  must  be  reloaded  by  hand,  a  relatively  laborious 
process.  To  provide  automatic  reloading  would  require  considerable  below  deck 


space,  which  is  in  short  supply  on  most  ships.  A  ship  with  a  vertical  launcher  and 
with  each  missile  stored  in  and  launched  from  its  own  canister,  offers  a  significant 
improvement  in  magazine  handling  within  the  usual  constraints  of  above-deck 
space. 

The  third  aspect  is  the  ability  to  carry  out  sustained  operation  in  the  face  of  air 
opposition.  Missiles  are  voracious  consumers  of  magazine  space,  hence  the  number 
of  missiles  per  ship  is  always  very  limited.  A  Magazine/Launch  system,  then,  has  to 
be  adapted  to  rapid  replenishment  if  ships  are  to  operate  for  a  protracted  period. 
The  adoption  of  a  vertical  launcher  greatly  simplifies  replenishment  since  each 
missile  is  reloaded  while  still  inside  its  shipping  container. 

Perhaps  the  single  greatest  advantage  of  the  vertical  launching  system  over 
more  conventional  systems  is  that  they  save  valuable  space— a  trainable  launcher 
needs  clear  space  not  only  for  its  own  rotation  but  also  for  its  blast  in  different 
directions,  which  is  why  such  launchers  are  so  widely  spaced  aboard  modern 
warships.  In  a  vertical  system,  by  way  of  contrast,  the  missile  blast  is  concentrated 
in  the  immediate  area  of  the  launcher  (and,  to  a  greater  extent,  can  be  vented  down 
into  the  launching  cell),  and  there  is  no  need  for  allowing  a  clear  arc  of  fire. 
[Ref.  1] 

However,  in  a  vertical  launch  surface-to-air  missile  (VLSAM)  system,  the 
aerodynamic  surfaces  do  not  suffice  to  control  the  missile  at  take-off,  since  it  takes 
off  at  a  very  low  initial  speed.  Rather,  the  missile  generally  relies  on  movable 
vanes  set  into  its  rocket  motor  exhaust.  Any  early  failure  of  the  booster  motor  will 
drop  the  missile  directly  back  on  its  launcher.  In  addition,  when  it  enters  the  open 
ocean  environment  at  low  velocity,  the  missile  is  subject  to  potentially  significant 
crosswinds.  The  resultant  of  the  missile  and  crosswind  velocities  is  a  potential  high 


angle  of  attack  flow  around  the  missile.  This  high  angle  of  attack  flow  may  cause 
asymmetric  vortices  to  form  on  the  missile  nose  and  afterbody  (to  be  discussed 
later)  which  induce  side  forces  that  might  give  flight  control  problems  to  the 
VLSAM  at  launch.  The  launch  environment  may  contain  some  degree  of 
turbulence,  both  from  the  atmospheric  boundary  layer,  and  from  the  airflow  about 
the  ship  superstructure.  Understanding  the  effect  of  this  turbulence  on  the 
aerodynamic  characteristics  of  a  VLSAM  during  launch  is  the  goal  of  a  continuing 
effort  of  research  and  experiments  conducted  at  the  Naval  Postgraduate  School 
(NPS).  In  an  earlier  work,  Roane  [Ref.  2]  developed  a  system  of  modelling 
flowfield  turbulence  by  a  series  of  four  grids  to  generate  turbulence  in  the  NPS  low 
speed  wind  tunnel.  Rabang  [Ref.  3]  examined  the  effect  of  this  turbulence  on  the 
asymmetric  vortex  induced  forces  generated  on  a  VLSAM  model.  The  goal  of  this 
thesis  is  to  experimentally  validate  a  flowfield  technique  to  determine  the  location 
and  intensity  of  the  asymmetric  vortices  in  the  wake  of  the  VLSAM  model  at 
various  levels  of  freestream  turbulence.  The  purpose  is  to  understand  better  the 
asymmetric  vortex  behavior  as  effected  by  turbulence,  and  to  provide  flowfield 
information  for  correlation  with  numerical  predictions.  This  study  involves 
flowfield  measurements  at  a  high  angle  of  attack  about  a  body-only  configuration 
with  and  without  freestream  turbulence. 

B.    THEORY 

1.     Asymmetric  Vortex  Theory 

The  progressive  development  of  the  wake  along  the  blunt-nosed  slender 
cylindrical  body  when  viewed  in  cross-flow  planes  is  similar  to  the  growth  with 
time  of  the  flow  behind  a  two  dimensional  cylinder  at  an  angle  of  attack.  As  shown 


in  Figure  1  from  Ref.  2,  a  separation  "bubble"  exists  and  prevents  the  formation 
of  the  vortices  in  the  area  immediately  aft  the  nose.  Further  downstream,  two 
symmetrical  vortices  are  disposed  from  the  lee  side.  Theses  vortices  are  fed  by 
vortex  sheets  containing  boundary  layer  fluid  which  has  separated  from  the  body. 
Further  along  the  body  these  vortices  alternately  detach  and  move  downstream  one 
by  one  at  an  angle  to  the  freestream.  Other  vortices  form  on  the  lee  side  of  the  body 
at  an  increasing  distance  and  behave  in  a  similar  manner.  This  process  continues 
along  the  body  length.  The  result  is  a  side  force  on  the  body,  relatively  small  in 
magnitude,  that  appears  as  a  consequence  of  the  steady  asymmetric  vortices. 
[Ref.  4  &  5] 
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Figure  1.      Vortex  Flow  About  an  Blunt-Nosed  Cylinder.  [Ref.  2] 

On  a  slender  ogive  nose  tip,  the  nose-induced  separation  phenomenon  on  a 
blunt-nosed  cylinder  does  not  occur,  and  consequently,  nose-generated  asymmetric 


vortices  generate  much  a  greater  proportion  of  the  overall  side  force.  The  net 
effect  of  a  slender  body  with  vortex  formation  occurs  along  the  entire  length  of  the 
body,  as  shown  in  Figure  2.   [Ref.  5] 
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Figure  2.  Vortex  Flow  About  a  Slender-Nose  Cylinder  [Ref.  2] 

In  recent  years,  there  has  been  considerable  interest  in  the  development  of 
reliable  techniques  for  the  prediction  of  aerodynamic  characteristics  of  missiles 
and  of  aircraft  at  high  angles  of  attack.  These  research  efforts  have  revealed  that 
the  flow  on  the  leeside  of  these  bodies  is  characterized  by  a  vortex  system  which 
mainly  depends  on  the  angle  of  attack,  nose  shape,  overall  fineness  ratio,  crossflow 
Mach  number  and  Reynolds  number.  Other  secondary  factors  may  include  roll 
angle,  freestream  turbulence,  surface  roughness,  acoustic  environment  and 
vibration.  [Ref.  6,  7].  In  later  sections  we  will  discuss  the  effects  of  the  factors 
mentioned  above. 


a..   Vortex  Regions 

As  a  slender  body  is  being  pitched  through  the  angle  of  attack  range 
0  <  a  <  90°,  it  experiences  four  distinct  flow  patterns  (see  Figure  3)  that  reflect 

the  diminishing  influence  of  the  axial  flow  component  as  described  by  Ericsson  and 
Reding  [Ref.  8].  The  flow  regimes  are  characterized  as  follows: 

Regime  I  (0°  <  a  <  asv):    At  low  angles  of  attack  the  axial  flow 

dominates  and  the  flow  is  attached. 

Regime  II  (ocsV  <  a  <  aav):    At  intermediate  angles  of  attack,  the 

crossflow  sweeps  the  boundary  layer  to  the  leeward  side  where  it  is  separated  and 
rolls  up  into  a  symmetric  vortex  pair.  The  vortices  are  steady  with  time. 

Regime  III  (OaV  <  a  <  OuV):  At  high  angles  of  attack  crossflow  effects 

start  to  dominate  and  the  vortices  become  asymmetric,  thereby  producing  side 
forces  at  zero  sideslip.  These  asymmetrical  vortices  gives  rise  to  significant  side 
forces  and  yawing  moments.  Nelson  observed  a  random  switching  from  a  nearly 
symmetrical  attached  pair  of  vortices  to  a  separated  multi-vortex  system  occurring 
at  35°  angle  of  attack.  [Ref.  7].  The  position  on  the  slender  body  of  asymmetrical 
vortex  shedding  moves  forward  with  increased  angle  of  attack  and  with  Reynolds 
number  and  moves  rearward  with  increasing  Mach  number  [Ref.  6].  At  the  higher 
end  of  this  angle  of  attack  range,  there  are  some  random  flow  switching  and  flow 
instabilities. 

Regime  IV  (0CuV  <  a  <  90°):    At  a  very  high  angle  of  attack,  the 

crossflow  dominates  completely  and  the  boundary  layer  is  shed  in  the  form  of  a  von 
Karman  vortex  sheet  or  a  random  wake  depending  upon  Reynolds  number,  Mach 
number  and  geometric  details. 


Of  particular  interest  is  Regime  III  where  the  side  forces,  yawing  and 
rolling  moments  can  be  affected  due  to  the  asymmetrical  nature  of  the  separated 
flow  field.  Since  these  changing  patterns  are  significant,  the  side  forces  and 
moments  produced  can  be  larger  than  the  control  moments  produced  by  the 
deflection  of  the  conventional  control  devices.  And  the  effectiveness  of  aft  control 
surface  or  fins  can  be  greatly  reduced  by  the  vortex  wake  produced  by  forward 
separation. 

2.     Two  Dimensional  Crossflow 

Airflow  over  the  slender  body  can  be  divided  into  normal  and  axial 
components.  The  axial  flow  component  follows  along  the  slender  body  length  and 
the  crossflow  is  essentially  a  two  dimensional  flow  normal  to  a  cylinder. 

At  angles  of  attack  above  30°,  in  Regime  III,  the  effective  Reynolds 
number  on  a  cylinder  essentially  equals  the  crossflow  Reynolds  number  [Ref.  9]. 
Thus,  the  sectional  characteristics  for  the  slender  body  should  be  similar  to  those  of 
a  2D  cylinder.  The  crossflow  Reynolds  number  is  the  primary  factor  which 
influences  the  separation  point  of  the  boundary  layer.  Viscous  flow,  surface 
roughness,  and  turbulence  are  other  factors  which  influence  boundary  layer 
separation.  Following  Achenbach's  terminology,  a  cylinder  in  incompressible 
crossflow  experience  four  distinct  flow  regimes,  each  with  a  different  type  of  flow 
separation,  as  shown  in  Figure  4.  [Ref.  9] 

At  subcritical  Reynolds  number,  the  boundary  layer  is  laminar,  and  flow 
separation  occurs  near  the  lateral  meridian  where  cp,  is  defined  as  the  angle  from 

the  direction  of  the  crossflow,  varies  80°  to  90°  . 


REGIME   I 


u. 


REGIME   II 
UL 


REGIME   III 


LL 


REGIME   IV 


CROSS 

SECTION 

A-A 


U 


0 


a 


u. 


w 


LL 


VORTEX 
FREE   FLOW 


SYMMETRIC 
VORTEX   FLOW 


STEADY 
ASYMMETRIC 
VORTEX   FLOW 


WAKE-LIKE 
FLOW 


Figure  3.     Vortex  Generation  Regimes  [Ref.  8] 
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Figure  4.     Two  Dimensional  Crossflow  about  a  Cylinder  [Ref.  9] 

In  the  critical  Reynolds  number  range,  a  laminar  separation  bubble 
develops  near  the  lateral  meridian  at  (p«  90°,  followed  by  transition  in  the  detached 

laminar  shear  layer  and  turbulent  reattachment.  The  reattached  turbulent 
boundary  layer  is  more  energetic  than  the  laminar  boundary  layer  and  separation  is 
delayed  to  cp=  140°,  resulting  in  a  dramatic  reduction  of  the  drag.  Thus,  a  drag- 
bucket  is  produced  in  the  critical  Reynolds  number  region. 

As  the  Reynolds  number  is  increased,  transition  moves  forward  of  the 
lateral  meridian  and  the  laminar  bubble  is  lost.  Thus,  separation  moves  forward  of 


(p=  100°  as  the  turbulent  boundary  layer  thickness  grows  with  increasing  Reynolds 
number.  A  drag  increase  accompanies  the  wake  growth. 

For  asymmetric  behavior  in  this  Reynolds  number  regime, both 
supercritical  and  critical  separations  allow  large  suction  peaks  to  be  realized  on  one 
side  of  the  body,  whereas  on  the  other  side,  subcritical  separation  cuts  off  the  peak 
suction  pressures,  producing  a  large  pressure  differential  across  the  body.  The 
pressure  drops  sharply  as  the  separation  moves  rearward  in  the  critical  Reynolds 
number  range,  resulting  in  a  pronounced  maximizing  of  the  2D  lift  to  drag  ratio. 
[Ref.  9] 

Figure  5  presents  a  logical  progression  of  asymmetric  vortex  separation 
with  increasing  Reynolds  number  that  explains  how  both  a  maximum  and  a 
minimum  ICylmax/Cn  can  occur  in  the  critical  Reynolds  number  range.  At 
subcritical  effective  Reynolds  numbers,  asymmetric  subcritical  separation  occurs 
near  the  80°  meridian  to  produce  a  moderate  normalized  side  force. 

As  the  critical  Reynolds  number  range  is  entered,  critical/subcritical 
separation  can  occur.  This  provides  the  maximum  differential  in  the  separation 
location  on  opposite  sides  of  the  body  and  the  maximum  suction  pressure 
differential  in  the  vicinity  of  the  lateral  meridian  where  it  is  the  most  effective  in 
producing  a  side  force.  The  peak  is  sharp  because  a  relatively  small  increase  in 
Reynolds  number  results  in  asymmetric  critical  separation  where  nearly  equal 
suction  pressures  occur  at  the  lateral  meridians  and  the  separation  asymmetry 
affects  the  pressure  only  at  cp=  140°,  where  they  are  relatively  ineffective  in 

producing  the  side  force.  Thus,  both  the  normalized  side  force  and  the  side  force 
itself  will  be  very  small.  [Ref.  9] 
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Finally,  as  effective  Reynolds  number  increases  through  the  supercritical 
regime  on  to  the  transcritical  region,  the  flow  separation  asymmetry  moves  toward 
the  lateral  meridian  where  it  is  once  again  efficient  in  generating  a  side  force. 
[Ref.  9] 

The  Reynolds  number  dictates  the  greatest  influence  on  the  normal  force 
and  drag  characteristics,  especially  within  the  critical  range  where  the  maximum 
side  force  and  the  maximum  vortex  asymmetry  occur.   [Ref.  9] 
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Figure  5.     Side  Force  to  Normal  Force  Ratio  [Ref.  9] 
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3.     Three  Dimensional  Vortices 

The  nose  geometry  of  a  missile  is  an  important  factor  in  vortex  generation 
and  disposition.  [Refs.  7,  10,  11,  &  12]  Missile  nose  geometry  falls  into  two 
shapes:  cones  and  ogives,  both  pointed  and  blunt.  Noses  are  dimensionalized  for 
comparison  by  their  length  to  base  diameter  ratio  or  fineness  ratio  On/d)-  There 
are  two  kinds  of  asymmetric  vortex  shedding  on  slender  bodies.  [Ref.  13]  On 
pointed  bodies,  the  vortex  asymmetry,  and  thus  the  side  force,  usually  begins  at  the 
nose,  and  vortices  are  shed  at  a  relatively  rapid  rate  to  give  alternating  side-force 
cells  on  long-slender  bodies.  A  slight  amount  of  nose  bluntness  can  cause  the 
second  type  of  vortex  shedding  to  occur.  Here  asymmetric  vortices  develop  first  at 
the  rear  of  the  body. and  the  alternating  vortex  shedding  does  not  occur  as 
rapidly. Thus  the  side  force  cells  are  much  larger  and  can  cover  the  entire 
cylindrical  aft  body.  When  initially  generated  by  a  s lender- forebody,  they  are  not 
affected  by  the  aft-body  vortices,  though  the  afterbody  forces  will  contribute  to  the 
overall  magnitude  of  induced  forces  from  the  nose-body  combination. 
[Refs.  7  &  9] 

For  pointed  conical  and  ogive  noses,  observations  indicate  that  (Xav  occurs 
as  a  function  of  the  semi-vertex  angle  0a.  At  all  Mach  numbers,  asymmetric  vortex 

shedding  starts  when  the  angle  of  attack  exceeds  the  total  induced  angle  at  the  apex 
(Xav  =  20a.  For  a  conical  nose: 


eAc=ec  (i) 


For  a  tangent  ogive  nose: 
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0a  =  Tan-1 


In 

d 
Ld"0-25 


(2) 


For  slender  noses  Equation  2  can  be  approximated  by: 

eA-|f  (3) 

Nose  fineness  ratio  has  been  shown  to  have  an  effect  on  the  asymmetric 
vortex  induced  side  force  [Refs.  7,  10,11,12  &  14] 

The  magnitude  of  the  maximum  side  force  generally  increases  with  an 
increase  in  the  nose  fineness  ratio  and  decreases  with  an  increasing  Mach  number  to 
nearly  zero  at  supersonic  speeds.   [Refs.  15  &  16]. 

As  the  nose  fineness  ratio  increases,  the  nose  apex  angle  decreases  and  the 
angle  of  attack  for  the  onset  of  asymmetric  vortices  will  decrease.  Thus,  a  missile 
with  high  nose  fineness  ratio  may  become  more  susceptible  to  induced  side  forces  at 
a  lower  angle  of  attack  than  a  missile  having  a  lower  nose  fineness  ratio.  Jorgensen 
demonstrated  that  decreasing  the  nose  fineness  ratio  is  more  beneficial  in  reducing 
side  forces  than  blunting  the  nose  [Ref.  7]. 

In  addition  to  the  nose  fineness  ratio,  the  nose-generated  vortical  flow  is 
extremely  sensitive  to  the  nose  roll  angle.  This  phenomenon  results  from  surface 
imperfections  and  deviations  in  the  nose  axisymmetric  geometry.  Figure  6  shows 
the  work  by  Rabang  investigating  the  resulting  side  force  coefficient  for  nose  roll 
angles  varied  in  45°  increments.  [Ref.  3] 

Should  the  afterbody  roll  angle  change  with  nose  roll  angle  remaining 
constant,  the  afterbody  vortices  will  change  the  side  force  magnitude  and  direction 
as  noted  by  Kruse  [Ref.  17].   Since  the  nose  and  body  of  a  missile  do  not  rotate 
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independently  of  each  other,  the  vortex  system  generated  by  the  nose  should  still 
dominate  afterbody  vortices  on  an  axisymmetric  missile  configuration. 
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Figure  6.    Side  Force  Variations  with  Nose  Roll  Angle:     Runs  WOA102 

to  WOA802   [Ref.  3] 

The  behavior  of  the  asymmetric  vortices  is  well  documented  for  a  vast 

number  of  models  and  shapes,  yet  their  cause  is  still  not  well  understood.    The 

general  consensus  among  the  high  angle  of  attack  researchers  is  that  vortex 

asymmetry    is    induced    by    the    location    of   boundary    layer    separation 

[Refs.  13  &  18].  But  Keener  and  Chapman  consider  the  principal  effect  to  be  a 

hydrodynamic  (inviscid)  instability  in  the  initially  symmetric  vortex  formation  and 

the  interaction  of  the  vortices  (which  increases  in  strength  with  incidence)  with  the 
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surrounding  potential  flow  field.  In  addition  to  the  hydrodynamic  instability,  the 
vortex   asymmetry   is   also   strongly   affected   by   boundary-layer  (viscous) 
asymmetries  resulting  from  transition  and  separation  differences  on  each  side  of 
the  body.  [Ref.  19] 
4.     Turbulence 

a.     Turbulence  Intensity  and  Length  Scale 

Flow  in  which  there  are  random,  small-scale  velocity  fluctuations 
about  the  mean  freestream  flow  velocity  is  said  to  be  turbulent.  In  calculating  the 
effect  of  turbulence  on  a  body  in  the  flowfield,  a  comparison  must  be  made  between 
the  scale  of  the  body  and  that  of  the  turbulence.  In  addition,  consideration  must  be 
given  to  the  energy  contained  in  the  turbulence  flowfield. 

Turbulence  intensity  is  the  measure  of  the  relative  magnitude  of 
velocity  fluctuations  in  the  flowfield.  Mathematically,  for  a  horizontal  flowfield  or 
crosswind,  the  turbulence  intensity  Tu  is  the  ratio  of  the  root-mean-square  (rms) 
velocity  fluctuation  u',  to  the  mean  velocity  component  in  the  flowfield,  Uoo 

Tu  =  u'/Uoo  (4) 

Since  the  turbulence  intensity  measures  the  magnitude  of  velocity 
fluctuation,  a  higher  intensity  indicates  higher  kinetic  energy  and  correlates  to 
more  turbulent  flow. 

The  length  scale  of  the  turbulence,  Le,  is  a  measure  of  the  dimension 
of  the  velocity  fluctuation.  The  effect  of  the  length  scale  on  a  body  is  a  function  of 
the  relative  dimensions  of  the  turbulent  eddies  and  the  body  itself.  The  length  scale, 
despite  the  inference  of  a  purely  spatial  measure,  also  represents  the  temporal 
character  of  the  turbulent  fluctuations.    An  increase  in  the  spatial  length  of  the 
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turbulence  corresponds  to  an  increase  in  the  time    the  body  is  exposed  to  the 
fluctuation. 

Turbulence  length  scale  to  body  size  ratio  may  dictate  the  manner  in 
which  turbulence  affects  the  VLSAM  flowfield.  The  turbulence  length  scale  can  be 
compared  to  missile  length,  Le:Li,  or  missile  diameter,  Le:  L^.  When  the 
turbulence  length  scale  is  many  times  larger  than  the  missile  length,  Le  »  Li,  the 
effect  on  the  missile  is  somewhat  like  a  uniform  steady-state  flowfield  independent 
from  the  time,  especially  at  low  turbulence  intensities.  The  effects  of  the  flowfield 
on  vortex  development  are  largely  dictated  by  those  conditions  and  factors 
discussed  earlier  for  a  two  dimensional  cylinder. 

When  the  turbulence  length  scale  is  comparable  to  the  body  length, 
Le  «  Li,  the  flowfield  is  distinctly  non-uniform  and  may  cause  unwanted  rolling, 
pitching  and  yawing  motion.  [Ref.  20]  In  both  cases,  the  missile  body  motion 
results  from  the  actual  flowfield  conditions  about  the  missile  body. 

When  the  turbulence  length  scale  is  smaller  than  the  body,  Le  «  Li, 
the  result  has  a  distinctly  different  effect.  Most  importantly,  when  it  is  comparable 
or  smaller  than  the  missile  diameter,  Le  <  L^,  the  small  scale  turbulence  present  in 
the  flowfield  may  change  the  boundary  layer  and  flow  separation  present  on  the 
missile  surface,  particularly  when  the  turbulence  length  scale  is  the  same  size  or 
smaller  than  the  boundary  layer  thickness.  The  results  of  Rabang  show  an  increase 
in  turbulence  intensity  with  length  scale  on  the  order  of  the  nose-generated  vortex 
scale  tends  to  delay  the  onset  of  induced  side  force,  to  steady  the  asymmetric  vortex 
formation,  and  to  leave  the  maximum  value  Cy  more  or  less  unaltered.  [Ref.  3]. 
The  results  of  Rabang  show  an  increase  in  turbulence  intensity  with  a  length  scale 
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on  the  order  of  the  boundary-layer  scale  tends  to  reduce  the  magnitude  of  the 
induced  side  forces.  [Ref.  3] 

Both  large  and  small  scale  turbulence  length  scales  actually  coexist  in 
the  flowfield  since  the  turbulence  length  is  the  mean  of  the  disturbances  in  the 
flowfield.  The  combination  of  different  length  scales  may  add  complexity  to  the 
qualitative  analysis  of  the  flowfield.  As  the  disturbances  in  the  flowfield  experience 
strain,  the  disturbances  will  break  up  into  finer  disturbances  of  smaller  scale  and 
decreasing  energy.  The  process  repeats  itself  or  cascades  until  the  small 
disturbances  eventually  disappear  owing  to  viscosity.  When  the  disturbances 
decrease  in  size  and  energy,  their  individual  intensities  will  decrease  at  a  faster  rate. 
Thus,  the  turbulence  length  scale  average  will  be  biased  towards  the  larger 
turbulence  scales  in  the  flowfield  and  gives  an  accurate  quantitative  representation 
of  all  the  length  scales  within  the  flowfield,  since  the  energy  and  intensity  of  the 
larger  scale  turbulence  is  dominant  [Ref.  21.]. 


Figure  7.    Vortex  Shedding  on  a  Missile  at  High  Angle  of  Attack 

[Ref.  18.]. 
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5.     Effects  of  Body,  Wing,  Strakes  and  Tail 

The  vortex  structure  of  the  complete  missile  can  be  constructed  by 
superimposing  those  of  the  body,  wing  strakes,  and  tail.  This  results  in  a  vortex 
system  as  shown  in  Figure  7.  [Ref.  18]  Body  vortices  interact  with  wings  and  tails, 
and  wing  or  canard  vortices  interact  with  tails.  The  interaction  can  be  very  strong 
if  a  vortex  passes  very  close  to  a  tail  surface.  The  addition  of  wings  causes  the  nose 
vortices  to  move  closer  to  the  body.  As  the  vortices  move  closer  to  the  body,  the 
result  is  comparable  to  increasing  the  effective  angle  of  attack  causing  unsteady 
asymmetric  vortices.  The  net  effect  of  the  wing-body  combination  seems  to  be  a 
reduction  in  the  effective  angle  of  attack  for  the  onset  of  asymmetric  vortices  and 
side  forces.  [Ref.  22] 

For  the  body-only  case,  from  the  previous  research  by  Rabang,  an 
increase  in  turbulent  intensity  and  scale  tend  to  reduce  the  induced  side  forces  and 
to  shift  the  range  of  action  to  slightly  higher  inside  angles.  [Ref.  3] 

The  addition  of  strakes  will  generate  additional  vortices,  improving  the 
interactive  between  body  vortices  and  airflow  over  the  wings.  The  placement  of 
long  strakes  along  the  missile  body  and  nose  was  found  by  some  researchers  to 
reduce  the  forces  and  moments  generated  by  asymmetric  vortices.  [Ref.  18]. 
Rabang  demonstrated  the  addition  of  wings  and  strakes  typical  of  a  VLS  AM  tended 
to  preserve  the  induced  side  force  for  all  levels  of  turbulence  intensities  and  length 
scales.  [Ref.  3] 

The  adding  of  a  tail  has,  in  general,  relatively  little  influence  on  the 
maximum  side  forces.  With  the  application  of  wings  of  high  aspect  ratio,  the  tail 
loses  its  efficiency  at  a  small  angle  of  attack,  but  gains  in  efficiency  with  the 
growing  angle  of  attack.  [Ref.  18] 
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The  use  of  small  nose  bluntness,  nose  booms  and  boundary  layer  trips  has 
proven  effective  in  reducing  asymmetric  vortex-induced  loads.  [Ref.  23] 

C.    EFFECT  ON  VERTICALLY-LAUNCHED  SURFACE  TO  AIR 
MISSILE 

1.     Marine  Environment 

Conditions  in  the  marine  atmospheric  environment  may  have  a  significant 
effect  on  the  VLSAM.  The  atmospheric  boundary  layer  (ABL)  is  the  result  of  the 
interaction  of  the  atmospheric  flow  over  the  underlying  land  or  sea  surface.  This 
layer  is  characterized  by  a  turbulent  transfer  of  momentum,  heat  and  mass  (water 
vapor)  and  their  associated  gradients. 

The  surface  layer,  approximately  the  lowest  10%  of  the  A.B.L.,  is 
characterized  by  the  mechanically  produced  turbulence  from  the  surface  roughness 
and  friction  with  nearly  constant  vertical  fluxes  of  momentum,  heat  and  mass.  The 
height  of  this  layer  may  vary  over  a  wide  range  but  is  typically  of  the  order  of 
50  meters.  In  the  lower  most  part  of  the  surface  layer,  commonly  referred  to  as 
the  roughness  layer,  the  surface  has  the  greatest  effect  on  generating  turbulence  and 
influencing  fluid  motion.  Mean  flow  in  the  roughness  layer  is  nonhomogeneous 
and  three-dimensional  in  nature.  In  the  marine  roughness  layer,  the  traveling 
surface  waves  affect  the  flow  which  result  in  various  properties  of  the  sea  surface. 
However,  the  observation  of  these  wave  effects  has  been  hindered  by  the  motion  of 
the  instrument  platform  induced  by  the  wind  and  waves  as  well  as  by  the  presence 
of  the  platforms  (towers,  buoys,  ships)  in  the  flow  field.  Furthermore,  the 
majority  of  the  flow  in  the  surface  layer  itself  can  be  considered  horizontally 
homogeneous.  [Ref.  20] 
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A  measure  of  the  general  roughness  of  the  surface  is  given  by  Zo,  the 
roughness  length.  Its  value  is  determined  as  a  function  of  the  mean  wind  velocity  at 
various  elevations  above  the  surface  of  interest.  Surface  layer  turbulence  length 
scale  and  intensity  can  be  empirically  determined  by  combining  the  roughness 
length  with  the  elevation  and  windspeed.  [Ref.  24] 

For  a  typical  open  ocean  roughness  length  in  the  range  10"3  <  Z0  <  10'2 
meters,  turbulence  intensities  are  on  the  order  of  13  to  17  percent  at  a  10  meter 
elevation  and  mean  wind  speed  of  approximately  25  m/sec.  [Ref.  24:p.  11] 

Apparently,  the  turbulence  intensity  in  the  marine  surface  layer  can  be 
significant.  However,  the  effect  of  such  turbulence  fluctuations  is  highly  dependent 
upon  the  length  scales  present.  For  the  conditions  stated  in  the  preceding 
paragraph,  the  longitudinal  turbulence  length  scales  are  in  the  range  80  <  Le  <  90 
meters.  For  a  typical  missile  with  a  1.1  foot  diameter,  the  turbulence  length  scale  to 
missile  body  scale  ratio  is  about  Le:  Ld  =  280:1,  and  would  have  little  effect  on  its 
boundary  layer  development.  Yet,  the  cascade  effect  presented  above  allows  for  a 
decrease  in  the  length  scale  until  viscous  forces  dissipate  the  energy.  Therefore,  it 
is  possible  that  the  initial  large  scale  turbulence  and  crosswind  interaction  with  the 
ship  superstructure  would  decrease,  or  "cascade,"  to  scales  where  they  could  affect 
the  development  of  the  missile  boundary  layer. 
2.     Launch  and  Crosswind  Velocities. 

A  typical  VLSAM  launching  with  a  lOg  acceleration  reaches  an  altitude  of 
approximately  56  feet  traveling  at  a  vertical  velocity  of  Vv  =  164  ft/sec.  The 
VLSAM  is  still  well  within  the  surface  layer  environment  (50  meters)  and  is 
subject  to  crosswind  and  turbulence  effects.  As  an  example,  if  a  ship  travels  at  20 
knots  and  a  mean  wind  speed  of  20  m/sec  are  combined  with  the  VLSAM  launch 
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velocity,  the  resultant  vector  is  at  191  ft/sec  at  an  angle  of  31°  from  the  missile 
flight  direction.  The  result  represents  the  VLSAM  flying  at  an  effective  angle  of 
attack  of  31°  at  191  ft/sec.  This  places  the  VLSAM  in  Regime  III,  the  asymmetric 
vortex  region,  as  it  travels  through  the  surface  layer.   [Ref.  2] 

Gregoriou  also  states  that  an  effective  angle  of  attack  up  to  a  =  50°  may  be 

reached  by  a  VLSAM  while  it  pitches  over  towards  a  target.  [Ref.  25]  These 
examples  illustrate  the  distinct  possibility  of  asymmetric  vortex  induced  side  forces 
on  a  VLSAM  during  launch  phase. 

3.     Other  Launch  Considerations 

There  are  many  factors  which  affect  the  aerodynamics  of  VLSAM  during 
the  launch  phase  of  its  flight.  They  can  be  divided  into  two  categories.  One 
category  of  factors  are  inherent  to  the  design  of  the  missile,  such  as  the  plume  (or 
jet)  effect  of  the  missile's  engine,  blast  effects  of  the  vented  exhaust  gases  and 
activation  of  the  flight  control  system.  The  other  category  of  factors  includes 
shipboard  roll,  pitch,  and  yaw,  and  ship  airwake  turbulence.  [Ref.  2] 

Plume  and  blast  effects  can  affect  the  VLSAM  while  the  propulsion 
system  gases  or  exhaust  gases  impinge  on  the  aerodynamic  surfaces  of  the  missile. 
In  addition,  the  exhaust  gases  can  directly  impact  the  flowfield  into  which  the 
missile  is  launched,  especially  if  the  gases  are  vented  upward  into  the  vicinity  of  the 
accelerating  missile. 

The  VLSAM  itself  may  impose  some  form  of  flight  control,  aerodynamic 
or  thrust  vector,  to  maintain  flight  attitude  during  the  launch  phase.  [Ref.  25] 
Should  the  missile  change  flight  attitude,  the  flowfield  around  it  will  be  altered. 

The  ship  undergoes  constant  roll,  pitch  and  yaw  motion  and  transmits  this 
motion  to  the  launch  platform  of  VLSAM-the  canister,  since  the  canister  used  for 
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storage  is  also  the  launcher.  This  increases  the  complexity  to  the  initial  velocity 
vector  as  the  VLSAM  leaves  the  guide. 

In  addition  to  the  turbulence  generated  in  the  marine  atmospheric 
boundary  layer,  turbulence  may  be  produced  by  the  ship's  hull  and  superstructure. 
This  flowfield  or  ship  airwake  may  increase  turbulence  intensities  while  decreasing 
turbulence  length  scales. 

The  above  considerations,  while  not  forming  a  complete  description, 
emphasize  the  numerous  factors  which  may  influence  the  flight  behavior  of  the 
VLSAM  during  the  launch  phase.  Except  for  the  limited  discussion  in  the 
preceding  paragraphs,  these  additional  effects  are  beyond  the  scope  of  the  present 
investigation. 
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II.  EXPERIMENT  APPARATUS 

A.   EXPERIMENTAL  HARDWARE 

The  experimental  hardware  for  this  experiment  can  be  divided  into  7  major 
subdivisions.  There  are  the  wind  tunnel,  the  VLSAM  model  with  associated 
support  structures,  the  3-D  traverser,  the  scanivalve  mechanism,  the  turbulence 
generating  grids,  the  5 -hole  pressure  probe  and  the  data  acquisition  system.  Each 
of  these  will  be  individually  discussed  in  the  following  sections. 

1.     Wind  Tunnel 

The  horizontal-flow,  low-speed  wind  tunnel  that  was  used  during  this 
research  is  located  at  the  Naval  Postgraduate  School  and  is  shown  in  Figure  8. 
[Ref.  26:pp.  3-7] 

It  is  a  single  return  tunnel  measuring  64  feet  in  length  and  between  21.5 
and  25.5  feet  in  width.  The  power  section  of  the  tunnel  comprises  a  hundred 
horsepower  electric  motor  coupled  to  a  three-blade  variable  pitch  fan  by  a  four- 
speed  Dodge  truck  transmission.  Immediately  following  the  propeller  blades  are  a 
set  of  stator  blades  to  help  straighten  the  flow.  Turning  vanes  are  installed  at  all 
four  corners,  with  two  small-mesh  wire  screens  installed  upstream  of  the  settling 
chambers,  to  smooth  the  airflow  and  reduce  turbulence.  A  heavy  wire  screen  is 
also  installed  downstream  of  the  test  section  to  prevent  damage  to  the  fan  blades  or 
turning  vanes  in  the  event  of  model  failure  during  operation.  The  test  section  of  the 
tunnel  measures  45  inches  by  32  inches,  with  corner  fillets  which  house  the  test 
section  lighting;  the  cross  sectional  area  is  9.88  square  feet.  The  contraction  ratio 
of  settling  chamber  area  to  test  section  area  is  approximately  ten.  The  walls  of  the 
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test  section  diverge  slightly  to  allow  for  boundary  layer  growth  without  a  reduction 
in  the  freestream  pressure  along  the  test  section. 
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Figure  8.    Naval  Postgraduate  School  Low  Speed  Wind  Tunnel 

[Ref.  26:p.  3-7] 

As  the  test  section  is  designed  to  operate  at  atmospheric  pressure,  a 
circumferential  breather  slot  is  installed  downstream  of  the  test  section  to  replenish 
air  lost  through  leaks  in  the  tunnel  walls.    The  tunnel  was  designed  to  provide 
velocity  up  to  290  feet  per  second  in  the  test  section.  [Ref.  26] 
A  reflection  plane  is  installed  in  the  floor  of  the  test  section,  which  decreases  the 
vertical  dimension  to  28  inches.   In  the  center  of  the  reflection  plane  is  a  flush- 
mounted  turnable  for  adjustments  in  pitch  angle.    The  angle  of  the  turnable  is 
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remotely  controlled  with  an  electric  motor  installed  beneath  the  tunnel 
[Ref.  26:pp.  3-3,3-4]   See  Figure  9. 


Figure  9.    Turnable  Assembly  and  VLSAM  in  Wind  Tunnel 

Flow  measurement  components  utilized  with  the  wind  tunnel  are  a  dial 
thermometer,  manometer,  and  pitot  static  tube.  Temperature  in  the  wind  tunnel  is 
measured  by  a  dial  thermometer  extending  into  the  setting  chamber.  Dynamic 
pressure  in  the  wind  tunnel  is  measured  by  the  calibrated  static  pressure  difference 
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between  the  test  section  and  the  settling  chamber  using  a  water  filled  manometer. 
Static  pressure  in  the  settling  chamber  is  measured  by  four  static  pressure  taps,  one 
on  each  wall ,  upstream  of  the  test  section  to  preclude  interference  from  the  model. 
The  pressure  taps  at  each  section  are  connected  via  a  common  manifold  prior  to 
feeding  into  the  manometer.  The  manometer  measures  pressure  differences  in 
centimeters  of  water,  which  is  the  test  section  dynamic  pressure,  and  is  converted  to 
the  actual  wind  tunnel  velocity  by  Equation  (5). 


u<"=y 


2*2.0475*PcmH2o 

(5) 


K*p 

where 

•  Um  =  measure  velocity  (ft/sec) 

•  2.0475  =  conversion  factor. 

•  Pcm  H2O  -  manometer  reading  in  cm  of  H20 

•  K  =  Calibration  factor1  ,  0.889  for  no  grid,  1.5084  for 

Grid#l. 

•  p  =  air  density(lb/ft3) 

A  pressure  transducer  circuit  connected  to  the  manometer  displays  test 
section  dynamic  pressure  on  a  digital  readout. 
2.     VLSAM  and  Support  Equipment 

The  VLSAM  model  was  constructed  of  6061  and  2024  aluminum  alloy  by 
Naval  Postgraduate  School  personnel.  It  is  intended  to  model  a  cruciform  tail- 
control  missile  with  very  low  aspect  ratio  long  dorsal  fins.  It  is  designed  to  permit 
force  and  moment  measurements  while  operating  in  a  subsonic  wind  tunnel. 


*New  calibration  factor. 
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The  body  section  is  a  hollow  cylinder  with  locating  pin  attachment  points 
for  the  balance  gage,  sleeve,  wings  and  tails.  The  machined  sleeve  provides  a  close 
tolerance  fit  between  the  balance  gage  and  the  interior  of  the  VLSAM  model .  The 
model  is  seated  to  the  balance  gage  by  locating  pins.  Body  roll  angle  can  be  varied 
in  45°  increments.  Nose  roll  angle  may  be  varied  in  45°  increments  independent  of 
the  body.  The  nose  is  a  pointed  ogive  shape.  Four  very  low  aspect  ratio  wings  with 
strakes  comprise  the  cruciform  wing  section  and  four  tail  control  fins  are  mounted 
equilaterally  in  fixed  position  along  the  model  axis.  All  parts  are  rigidly  connected 
to  the  model  body  by  countersunk  machine  screws.  The  surface  of  the  VLSAM 
model  is  buffed  to  a  polished  finish  and  is  free  from  protuberances.  The 
dimensions  of  the  model  are  summarized  below  as  shown  in  Figure  10. 

The  VLSAM  model  support  is  rigidly  fixed  in  the  wind  tunnel  test  section 
by  the  reflection  plane  turntable  at  the  base  and  an  aluminum  reinforced  clear 
plexiglass  section  at  the  top.  The  plexiglass  sheet  has  slots  cut  to  the  width  of  5/4 
inches  and  the  length  of  7,  8,  and  10  inches.These  slots  correspond  to  the  positions 
of  length/diameter  ratios  of  3,  6,  and  9  of  the  missile  model,  i.e.,  5.25,  10.5  and 
15.75  inches  from  the  nose,  respectively. 

A  planar  survey  grid,  the  Y-Z  plane,  is  perpendicular  to  the  freestream 
velocity  and  down  stream  10.5  inches  from  the  nose  of  the  missile.  The  magnitude 
of  the  Z  dimension  is  divided  evenly  with  respect  to  the  center  line  of  the  missile 
body  (see  Figure  11).  The  Y-Z  dimensions  for  the  preliminary  run  and  the  actual 
runs  are  6.5  x  8  and  3  x  5.5  inches  respectively.  The  step  distance  s  are  0.5  inch  and 
0.25  inch  for  the  preliminary  run  and  for  the  actual  runs  respectively.  Because  of 
the  probe  measuring  volume,  the  grid  mesh  could  not  be  finer  than  0.25  inch. 
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Total  length 

Base  diameter 

Length/diameter  ratio 

Ogive  nose  length 

Ogive/diameter  ratio 

Wing  span/root  chord 

Tail  span/root  chord 

Center  of  pressure 


22.85  in. 

1.75  in. 

13.06 

4.0  in. 

2.29 

3.13  in./ 1 3.55  in. 

5.50  in., '1.70  in. 

13.5  inches  alt  of  nose  tip  (approx.) 
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Figure  10.     Drawing  of  VLSAM  Model  and  the  Specification  [Ref.  3] 
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Figure  11.  The  Planar  Survey  Grid. 
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Figure  12.    VLSAM  Model  with  Support  Equipment  and  Pressure 
Probe  in  the  Test  Section  (without  Wing) 

The  sting  model  support  changes  model  pitch  angle  via  a  chain  gear  drive 
powered  by  an  electric  motor  in  the  horizontal  direction  with  the  pivot  point 
coinciding  with  the  approximate  center  of  the  VLSAM  model  (see  Figure  12). 
3.     Velmex  8300  3-D  Traverser 

The  Velmex  8300  is  a  3-D  traversing  system  using  three  microcomputer- 
controlled  stepping  motors  (one  for  each  axis  of  movement).  The  system  is 
composed  of  the  motor  controller  assembly  and  the  traversing  assembly  as  shown 
in  Figure  13(a),(b). 

A  5-hole  pressure  probe  was  attached  to  the  8300  control  drive.  It  can 
accurately  and  effectively  move  the  pressure  probe  through  the  test  section.  The 
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motor  controller  assembly  is  the  interface  unit  between  the  operator  and  the 
motors.  The  controller  is  capable  of  interpreting  motor  movement  commands 
from  a  host  computer,  programmable  control,  or  terminal.  Data  communication 
between  a  terminal  and  the  controller  assembly  is  made  through  a  full-duplex  RS- 
232C  port  located  on  the  front  of  the  controller  assembly.  Manual  motor 
movements  are  input  via  switches  also  located  on  the  front  panel. 

The  resident  BASIC  interpreter  software  program  contains  the  necessary 
motor  movement  subroutines  and  is  responsible  for  monitoring  motor  status.  Fault 


Figure  13(a).     Velmex  8300  3-D  Traverser 

Assembly 


-  Motor  Controller 
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Figure  13(b).     Velmex  8300  3-D  Traverser  --  Traversing  Assembly 

lights  on  the  front  panel  indicate  parity  or  data  bus  errors  and  a  ready  light 
indicates  the  previous  motor  movement  is  completed  and  the  controller  is  ready  to 
accept  the  next  input.  Additionally,  the  controller  has  12k  of  custom  firmware  for 
interactive  motor  control.  The  combined  20k  of  ROM  is  contained  on  a  6502  based 
microcomputer  along  with  4k  of  RAM.  Operator-selectable  motor  variables, 
accessible  through  software  commands,  include  motor  velocity,  motor 
acceleration,  increment  distance,  and  incremental  unit  (motor  steps  or  inches) 
[Ref.  27]. 

The  traverser  assembly  is  a  stainless  steel  and  aluminum  assembly 
consisting  of  three  separate  motor  /  jackscrew  assemblies.  Each  motor/jackscrew 
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moves  the  traverser  along  one  of  the  axes  depending  on  the  connections  made  to  the 
controller.  Each  motor  is  a  200  step  per  revolution,  10  amp  stepper  motor  with  a 
maximum  velocity  of  3000  steps/sec.  Minimum  motor  movement  is  one  motor  step 
(1/200  of  a  revolution)  which  equates  to  approximately  0.000125  inch.  [Ref.  27] 

An  extension  aluminum  bar  was  attached  to  the  base  of  the  traverser  and 
mounted  to  existing  hardware  located  on  top  of  the  tunnel.  The  assembly  was 
mounted  in  a  position  such  that  tunnel-induced  vibrations  on  the  traverser  were 
minimized.  Additionally,  a  thin  vertical  extension  bar  was  inserted  behind  the 
probe  tubing  to  reduce  the  pressure  probe  vibrations  due  to  the  high  dynamic 
loading  in  the  high  velocity  airstream. 

Motor  movement  were  controlled  via  the  controller  assembly  from  an 
IBM  PC/AT  computer  located  adjacent  to  the  tunnel.   The  program  for  traverser 
movement  will  be  discussed  in  detail  in  the  software  section. 
4.     Scanivalve 

One  48-port  scanivalve  was  used  to  measure  each  of  the  5-hole  pressure 
probe  pressures. (See  Figure  14.)  The  scanivalve  was  used  because  it  provides  an 
economical  means  of  sensing  the  pressures  of  a  multiple  number  of  sources.  It  also 
simplifies  calibration  procedures  in  that  only  one  transducer  needs  to  be  calibrated. 

The  scanivalve  mechanism  puts  out  a  7-bit  binary  coded  decimal  (BCD) 
signal  that  corresponds  to  the  port  (1-48)  currently  connected  to  the  scanivalve 
transducer.  This  arrangement  allows  remote,  electronic  monitoring  of  the 
configuration  of  the  port  assembly  of  the  scanivalve. 

The  scanivalve  consists  of  two  separate  units.  One  unit  contains  the 
transducer,  motor  drive,  and  port  assembly.  The  second  unit  houses  the  solenoid 
controller.     Control  of  the  scanivalve  is  accomplished  through  the  solenoid 
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controller.  The  solenoid  controller  allows  two  commands,  STEP  and  HOME. 
STEP  "steps"  the  scanivalve  one  port  location.  HOME  command  sends  the 
scanivalve  to  port  number  48.  (See  Figure  15.) 


Figure  14.    48-Port  Scanivalve 

Computer  control  is  accomplished  through  the  solenoid  controller  by 
means  of  the  Hewlett-Packard  (HP)  Relay  Actuator.  It  will  accept  a  15  voltage 
pulse  to  either  STOP  or  HOME. 
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Figure  15.     Scanivalve  Control 

The  signal  path  for  the  scanivalve,  containing  information  about  the 
5-hole  probe  port  pressure,  passes  through  the  signal  conditioner/amplifier  to  the 
Relay  Multiplexer;  then  the  values  measured  by  the  HP  Digital  Multiplexer  are  sent 
to  the  computer.  The  signal  is  conditioned  by  a  low  pass  filter  with  a  cut  off  of 
10Hz.  This  removes  most  of  the  noise,  including  power  line  interference,  prior  to 
being  measured  of  the  HP  Digital  Multiplexer.  The  transducer  signal  is  fed  through 
a  1000  gain  low  noise  amplifier  to  improve  resolution  for  small  magnitude  signals. 
The  HP  Digital  Multimeter  converts  the  analog  voltage  signal  into  a  digital  signal 
for  use  by  the  data  acquisition  program  named  "PPROBE."  An  IBM-AT 
microcomputer  executes  the  the  PPROBE  software  and  stores  the  collected  data  in 
the  consecutive  files. 

5.     Turbulence-Generating  Grids 

The  turbulence  grids  were  designed  for  use  in  the  low  speed  wind  tunnel 
to  generate  turbulence  in  varying  intensities  and  length  scales  [Ref.  2].    (See 
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Figure  16).  Each  grid  was  mounted  in  a  wood  frame,  which  was  placed  73  inches 
ahead  of  the  pivot  axis  of  the  model  support  system  (see  Figures  17). 


Figure  16.    Turbulence  Grids  2,  3,  and  4,  Clockwise  from  the  Left 

Grid  2,  3,  and  4 
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Figure  17.    Planview  of  VLSAM  Model  and  Pressure  Probe  in  the  Test 

Section  (not  to  scale) 

TABLE  1.    GRID  SPECIFICATIONS1 


Grid 

Mesh  Width  (in.) 

Bar  Diameter  (in.) 

Mesh/Diameter 

Material 

One 

5.00 

1.00 

5 

Wood 

Two 

3.75 

0.75 

5 

Wood 

Three 

2.50 

0.50 

5 

Wood 

Four 

1.00 

0.0625 

16 

Wire 

The  specifications  for  the  four  grids  are  listed  in  Table  1  and  Figure   18. 
Three  of  the  four  grids  are  square-mesh  square-bar  and  fabricated  from  wood. 


[Ref.  2:p.  28] 
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They  employ  bi-plane  construction  which  generates  nearly  isotropic  homogeneous 
turbulence.  The  fourth  grid  is  also  square-mesh,  but  was  fabricated  from  round 
wire.  Turbulence  intensities  and  length  scales  for  each  of  the  grids  were 
determined  by  Roane  [Ref .  2]  and  are  shown  in  Figures  1 9  and  20. 


Partial  Enlarged  View 
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Figure  18.     Square-Mesh  Turbulence-Generating  Grid 
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Figure  19.     Grid  Turbulence  Intensity2 


2The  dashed  line  indicates  the  model  pivot  axis.  [Ref.  2:p.  45] 
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Figure  20.    Grid  Turbulence  Length  Scales3 

The  dynamic  pressures  shown  in  Table  2  are  the  actual  dynamic  pressures 
in  the  test  section  from  Roane  [Ref.  2,  p.  44-49].  The  conclusion  from  Rabang 
[Ref.  3]  was  that  the  effects  of  the  grid  generated  turbulence  with  regards  to 
changing  length  scales  at  constant  intensity  or  changing  intensities  with  constant 
length  scale  could  not  be  investigated  with  the  present  grid  turbulence  parameters. 


3The  dashed  line  indicates  the  model  pivot  axis  [Ref.  2:p.  48] 


40 


TABLE  2.    GRID  TURBULENCE  PARAMETERS:    AT  THE  MODEL 

PIVOT  AXIS* 


Grid 

Intensity 
(percent) 

Length  Scale  (in.) 

Turbulence/ 
Model  Dia. 

Dynamic 
Pressure 
(lb./ft2) 

One 

3.31 

1.84 

1.05 

15.35 

Two 

2.78 

1.56 

0.89 

14.88 

Three 

1.88 

1.08 

0.62 

16.38 

Four 

0.47 

0.27 

0.15 

15.61 

None 

0.23 

- 

- 

15.85 

6.     5-Hole  Pressure  Probe 

Since  the  local  flow  angles  are  high  just  outside  of  the  vortex  core,  and  the 
3-sensor  hot  wire  probe  is  limited  to  flow  angularities  of  no  more  than  45°,  from 
the  results  of  experiments  by  Naik  it  was  shown  that  a  pressure  probe  is  useful  to 
measure  the  flowfield  where  the  flow  angularity  is  high  (typically  greater  than  35°) 
[Ref.  28].  The  data  from  the  pressure  probe  can  be  reduced  to  obtain  the 
distributions  of  local  total  pressure,  static  pressure  and  velocity  vectors 
simultaneously.  The  wide  measurement  range  is  the  chief  advantage  the  pressure 
probe  has  over  other  measuring  devices.  A  5-hole  pressure  probe  is  used  in  this 
experiment.  The  disadvantage  is  the  limitation  of  time-averaged  measurements. 

The  5-hole  pressure  probe  is  made  of  corrosion  resistant  non-magnetic 
stainless  steel  silver  bragged.  It  is  0.125  inch  in  diameter  and  24  inches  in  total 
length  with  22  inches  of  reinforcement  tubing.  There  are  five  take-off  tubes  with  a 
reinforcement  block  on  the  top.   At  the  measuring  tip  is  a  five  hole  prism  shaped 


4[Ref.  2:pp.  44-49] 
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measuring  section.    (See  Figure  21)   The  pressure  probe  gives  the  data  of  pitch 
angle,  yaw  angle  and  velocity.  More  details  can  be  found  in  Ref.  29.  The  pressure 
data  was  reduced  to  obtain  isobars  of  total  pressure  coefficient  and  static  pressure 
coefficient,  and  to  map  the  crossflow  velocity  vectors. 


24' 


0.125 


r 


Block  Size 
1-1/34"  x  1/2" 


Take-off  Tube 


F2 

Pa 

f3 

Figure  21.    5-Hole  Probe  and  its  Measuring  Tip  [Ref.  29] 
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The  speed  of  reading  depends  on  the  length  and  diameter  of  the  pressure 
passage  inside  the  probe,  the  size  of  the  pressure  tubes  to  the  manometer,  and  the 
displacement  volume  of  the  manometer.  The  time  constant  increases  rapidly  for 
smaller  diameter  tubes.  The  diameter  of  tube  used  in  this  experiment  is  1/4  inch 
O.D.  and  the  length  of  the  tubes  are  three  feet,  so  the  time  delay  is  about  0.15-0.26 
second. 

7.     HP  Data  Acquisition  System 

The  HP  data  acquisition  system  consists  of  a  combination  of  hardware  and 
software  that  allows  the  IBM  PC-AT  computer  to  act  as  a  fully  automated 
instrumentation  system.  [Ref.  29]  The  individual  HP  instruments  used  in  this  thesis 
include  the  Relay  Multiplexer,  Digital  Multimeter  and  Relay  Actuator.  (See 
Figure  22.)  Each  of  the  instruments  can  be  operated  manually  at  the  computer 
screen  by  means  of  the  mouse  control. 

In  this  mode  the  instrument's  operating  controls  and  functions,  as  well  as 
digital  displays,  are  relayed  to  the  computer  screen.  Instead  of  user  interaction 
with  the  instrument's  controls  and  indicators,  each  unit  is  manipulated  by  the 
computer  mouse  controller. 

In  addition  to  the  manual  mode,  the  HP  data  acquisition  system  can  be 
operated  in  the  program  (Basic)  mode.  This  method  is  employed  in  this  thesis.  A 
program  was  written  in  the  advance  Basic  language  (BASICA)  that  called  up  each 
instruments  and  its  function  as  necessary.  All  data  acquisition  related  to  the 
VLSAM  wind  tunnel  experiment  was  accomplished  by  the  use  of  the  BASICA 
program. 

The  Relay  Multiplexer  provides  one  common  output  channel  which  in 
turn  can  be  read  by  the  Digital  Multimeter. 
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Figure  22.    HP  Data  Acquisition  System 
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Figure  23.      Digital  Multimeter  (DMM)    Soft  Front  Panel.  [Ref.  30] 
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The  Digital  Multimeter  (DMM)  can  measure  +  or  -  DC  voltages,  AC 
voltages  and  Ohms.  In  this  thesis  only  the  DC  voltage  measurement  function  is 
used.  An  auto  range  is  used  in  which  the  DMM  selects  the  optimal  range  for  the 
signal  that  is  being  measured.  The  DMM  automatically  converts  input  analog 
voltage  signals  into  a  digital  (or  binary)  form  which  can  be  read  by  the  computer. 
The  DMM  has  a  continuous  data  sampling  rate  of  2.5  or  12.5  readings  per  second 
and  the  higher  sampling  rate,12.5  readings  per  second,  with  a  accuracy  of  ±0.05% 
of  the  input  voltage,  is  used  throughout  the  experiments.  (See  Figure  23.) 

The  Relay  Actuator  is  used  solely  in  controlling  the  scanivalve  to  STEP  or 
HOME. 

The  whole  setting  combined  with  the  3D-traverser,  scanivalve,  5-hole 
pressure  probe,  HP  data  acquisition  system  and  IBM  PC  AT  is  shown  in  Figure  24. 

B.    EXPERIMENT  SOFTWARE 

Several  programs  were  used  for  data  acquisition,data  reduction  and  plotting  in 
this  experiment.  The  relation  between  those  programs  is  shown  in  Figure  25.  Each 
of  them  is  discussed  as  follows. 
1.     PPROBE  Program 

The  BASICA  application  program  that  runs  the  VLSAM  experiment  is 
composed  of  three  parts. 

a.    STATE. FILE 

The  first  is  called  a  STATE. FILE.  The  statefile  is  a  program 
automatically  compiled  by  the  HP  Soft  Front  Panel  software.  It  tells  the  computer 
what  configuration  each  unit  was  left  in  when  the  instruments  were  last  used  (i.e., 
Relay  Multiplexer  was  set  for  channel  one  as  the  input  and  the  output  device  was 
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enabled  etc.)  The  statefile  in  use  in  the  VLSAM  laboratory  is  named 
PGMSHEL.HPC  and  is  located  in  the  Lung  sub-directory  on  the  computer's  fixed 
C-disk.  [Ref.  30] 
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Figure  24.    Whole  Hardware  Setting 
b.    PGMSHEL 

The  second  part  of  the  BASICA  application  program  is  called 
PGMSHEL.  PGMSHEL  consists  of  BASICA  program  lines  that  perform 
initialization  chores  to  allow  communication  between  the  HP  instruments  and  the 
IBM  computer.  In  essence,  the  PGMSHEL  allows  the  computer  to  know  every 
function  available  at  each  of  the  data  acquisition  instruments.  When  one  of  these 
functions  is  called  up  in  the  BASICA  application  program  the  computer  already 
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"knows"  that  function  exists  and  where  to  find  it.     PGMSHEL,  like  the 
STATE.FILE,  is,  created  by  the  HP  system  soft  Front  Panel  Software. [Ref.  30]. 
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Figure  25.     Program  Procedures 
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c.     Traverser 

The  third  part  of  the  BASICA  application  program  is  the  actual 
application  code.  PGMSHEL  occupies  lines  1  through  999.  The  application  code 
starts  at  line  1000  and  begins  to  run  only  after  all  system  initialization  is  completed. 
The  application  code  consists  of  a  combination  of  HP  instruments  statements  with 
BASICA  keywords,  the  scanivalve  control  program  and  the  traverser  program. 

The  traverser  program  was  originally  written  by  Kindelspire 
[Ref.  31]  in  Advanced  Basic  (BASICA)  language  to  serve  as  the  interface  between 
the  operator  and  the  motor  controller  assembly.  It  allows  the  operator  to  control 
precisely  the  pressure  probe  movement  via  the  3-D  traverser  controller  unit.  It 
consists  of  manual  input  (meaning  one  motor  movement  for  each  operator  input) 
and  computer-controlled  movement.  It  was  minimally  modified  by  the  author  in 
manual  input  and  the  author  developed  a  new  computer-controlled  movement.  The 
algorithm  flow  chart  is  shown  in  Figure  26  for  this  experiment.  The  PPROBE 
program  is  shown  in  Appendix  A. 

The  manual  movements  were  used  to  pre-position  the  pressure  probe 
prior  to  the  data  collection  run  through  the  whole  measured  plane. 

The  operator  first  uses  manual  input  to  move  the  total  pressure  hole 
(Pi)  of  the  pressure  probe  as  near  as  possible  in  the  horizontal  direction  to  the 
center  axis  of  the  VLSAM  model,  then  he  moves  the  probe  vertical  down  to  the 
position  where  he  desires  to  measure.  This  point  is  called  the  original  point,  which 
is  used  for  the  reference  at  each  run.  After  pre-positioning  the  pressure  probe  to 
the  original  point,  the  operator  selects  the  computer-controlled  movement  option. 
At  this  option,  the  operator  is  prompted  to  input  the  dimension  measurement  in 
(Y,Z)  format  and  the  step  distance.    All  units  are  in  inches.    The  program  will 
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automatically  calculate  and  display  the  number  of  points  in  the  Y-direction  and 
Z-direction  and  the  total  number  of  points  to  be  measured.  If  the  operation  is 
satisfied,  then  the  operator  is  prompted  to  input  the  name  of  the  data  file  to  be 
stored;  otherwise,  the  program  goes  back  to  prompt  the  operator  to  re-input  the 
dimension  measurement.  After  the  operator  inputs  the  name  of  the  data  file,  the 
program  displays  the  name  of  the  data  file  which  automatically  increases  by  the 
point  number  in  the  Y-direction  with  a  extension,  DAT.  One  column  of  data  is 
written  to  a  single  file.5  The  program  prompts  the  operator  to  have  a  final  check  on 
the  dimension  measurement,  the  number  of  points  and  the  name  of  the  data  file 
before  the  data  can  be  acquired.  Before  the  data  acquisition,  the  operator  must 
rotate  the  pressure  probe  until  the  pressure  for  the  ports  P2  and  P3  are  equal 
(nulling);  then  he  inputs  the  yaw  angle  indicated  by  the  traverser  scale  wheel.  The 
first  step  was  to  move  the  scanivalve  from  port  1  to  port  46  via  the  Relay  Actuator 
with  a  one  second  delay  time  which  permits  the  pressures  to  equalize  before  the 
DDM  samples  the  output  voltage  from  the  scanivalve  transducer  via  the  Relay 
Multiplexer. 

After  ten  samples  are  taken,  the  Relay  Actuator  steps  the  scanivalve  to 
the  next  port  and  the  process  is  repeated  until  all  the  five  channel  pressures  are 


5If  there  are  total  16x  10=  160  points  to  be  measured  and  the  input  the  name  of  the 
data  file  is  TEST,  then  the  date  file  will  automatically  increase  from  TEST  01 .  DAT 
to  TEST  16.  DAT  through  the  whole  measurement. 


6Scanivalve  port  4  is  consistent  with  Pi  of  the  pressure  probe  and  port  5  is 
consistent  with  P2  and  so  on. 
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PPROBE   Program  Flotu   Chart 
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Figure  26    PPROBE  Program  Flow  Chart 

measured  (i.e.,  from  port  4  to  port  8).    Then  the  Relay  Actuator  homes  the 
scani valve  to  port  48.   The  program  will  show  all  the  readings  and  the  average 
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values  for  each  channel.  The  program  prompts  the  operator  to  check  whether  the 
data  is  valid  or  not.  If  not,  it  will  remeasure;  otherwise,  the  program  will  move  the 
pressure  probe  upward  one  step  automatically.  It  then  repeats  the  data  acquisition 
procedure.  After  the  program  finishes  the  one  column  data  acquisition,  it  stores  all 
the  averaged  data  of  each  sample  point  in  a  data  file,  then  moves  the  traverser  to  the 
next  column  position.  The  program  repeats  the  data  acquisition  process  until  all  the 
columns  are  finished. 

2.  CALP  Program 

Before  and  after  each  time  the  CALP  program  is  executed,  the  transducer 
voltage  output  is  calibrated  by  applying  a  known  pressure  source.  From  the  output 
voltage  and  pressure  data,the  slope  equation  is  calculated  by  curve  fitting.The  slope 
equation  is  used  by  the  PPROBE  program  to  convert  the  transducer  voltage  to 
physical  pressure.  The  CALP  program  is  shown  in  Appendix  B. 

3.  CONVERT  Program 

The  program  is  written  by  the  author  in  Fortran.  It  opens  a  consecutive 
file  created  by  program  PPROBE  and  reads  the  contained  data  in  each  row  and  then 
converts  the  data  into  the  Y-Z  coordinates,  velocity,  yaw  angle,  pitch  angle,  total 
local  pressure,  the  total  local  pressure  coefficient,  local  static  pressure  and  the  local 
static  pressure  coefficient  which  is  stored  into  a  file  named  "RESULT.DAT"  for 
later  use  by  the  REVX  program.  The  CONVERT  program  is  shown  in  Appendix  C 
and  the  pressure  probe  calibration  chart  is  shown  in  Appendix  D.  The  data 
reduction  can  be  divided  into  5  parts  for  interpretation  and  the  flow  chart  is  shown 
in  Figure  27. 
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Figure  27(a)    CONVERT  Program  Flow  Chart 


52 


Conuert  Flow  Chart    (2 
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CPS  :  Local  Static  Pressure 

Coefficient 


Figure  27(b)    CONVERT  Program  Flow  Chart 
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a.  The  Coordinate 

The  Y-Z  coordinate  is  the  same  as  in  the  original  files. 

b.  The  Pitch  Angle 

The  pitch  angle  coefficient  0c  is  determined  by  calculating  Equation 

6. 

ec=Pl.p2  (6) 

where  9c  =  pitch  angle  coefficient 

•  Pi  =  indicated  total  pressure 

•  P2  =  indicated  static  pressure 

•  P4  =  pitch  angle  pressure 

•  P5  =  pitch  angle  pressure 

After  the  pitch  angle  coefficient  is  obtained,  the  corresponding  pitch 
angle  must  be  found.  It  is  calculated  by  using  Equation  7  which  was  developed  by 
the  author  by  using  commercial  curve-fitting  software  to  fit  the  provided 
calibration  chart. 

0  =  3.759  +  53.75686c  -  1.3O850C2  -  1.65830c3  -  O.8O610C4  -  16.51 150c5       (7) 
where 

•  0  =  pitch  angle  (degree) 

•  0C=  pitch  angle  coefficient 

c.  Velocity: 

At  any  particular  pitch  angle,  0,  the  velocity  pressure  coefficient  can 

be  read  from  the  velocity  pressure  coefficient  curve  on  the  calibration  chart.  The 
velocity  pressure  coefficient  curve  can  be  represented  by  Equations  8,  9,  and  10  at 
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different  pitch  angle  regions.   They  were  also  developed  by  the  author  by  using 
commercial  curve-fitting  software. 
At6<-10° 

Vc=  0.981-0.01029  -  SXmCMe2  -  2.5*10  «&  (8) 

At-io°<e<io° 

Vc=  0.98-0.0066  +2.0*10^62  (9) 

At  6 > 10° 

Vc=  0.981-0.00350-  1.143*10-482  -  5.833*10-663  (10) 

where 

•  6  =  pitch  angle  (degree) 

•  Vc  =  velocity  coefficient 

And  the  velocity  pressure  coefficient  is  represented  by  Equation  1 1 . 

_PnP1__5 IPV2 

Vc"Pl-P2~Pl-P2"  Pl-P2  (U) 

where  Pt  =  total  pressure  (psf) 

•  Ps  =  static  pressure  (psf) 

•  p  =  gas  density  ((lb/ft3) 

•  Pi  =  indicated  pressure  (psf) 

•  P2  =  indicated  static  pressure  (psf) 

•  V  =  velocity  (ft/sec) 

•  q  =  local  dynamic  pressure 

Recall  that 

Patm  =  pRT 
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_    "atm 


(12) 


where 

•  Patm  =  ambient  pressure  (psf) 

•  R  =  gas  constant  =1718  (ft-lb/slug*R) 

•  T  =  temperature  (°R) 

•  p  =  density  (lb/ft3) 

Combine  Equations  1 1  and  12.  The  velocity  is  calculated  by  Equation  13 


V  = 


4 


2VC(P!-P2) 


(13) 


and  adding  the  wind  tunnel  calibration  factor,  K,  and  the  conversion  factor  gives 
the  local  velocity  in  the  wind  tunnel: 


Um= 


4 


2*2.0475*Vc*(Pi-P2) 
p*K 


(14) 


d.    Pressure    Coefficient 

At  a  particular  pitch  angle,  9,  the  total  pressure  coefficient,  Ptc,  can 

also  be  read  from  the  total  pressure  coefficient  calibrate  curve.  At  different  pitch 
angle  regions,  it  can  be  represented  by  Equation  15. 


At    < 


e<-30*  pte  =  o.i 

-30°  <  9  <  -20°  Ptc  =  0.02  +  1*  10"3  8 

-20°  <  8  <30°  Ptc=  0 

30°  <  8  <40°  ptc=  0.03  -  i*io_3e 


(15) 


where 
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•  Ptc  =  the  total  pressure  coefficient  of  pressure  probe  calibration 

•  6=  pitch  angle 
and 

p-ivP7  (16) 

where 

•  Pi  =  indicated  total  pressure 

•  PtL  =  Local  total  pressure 

•  Psl  =  Local  static  pressure 

PtL-PsL  =  JpUm2  (17) 

where  Um  is  from  Equation  14.   From  Equations  16  and  17,  both  P^  and  Psl  are 
calculated. 

Since  the  pressure  measurements  are  affected  by  slight  shifts  in  wind 
tunnel  velocity  and  temperature,  pressure  coefficients  are  used  when  the  local  and 
total  tunnel  pressures  are  compared  and  they  are  non-dimensionalized  by  the  tunnel 
dynamic  pressure.  These  coefficient  are  defined  below  : 

D.     D 

(18) 
(19) 


Cpt- 

Q 

Cps  — 

PsL"  Ps 

Q 

where 

■    Q  = 

:  Freestream  dynamic  pressure 

•    Pt  = 

=  Freestream  total  pressure 

•     Ps  = 

=  Freestream  static  pressure 

'     Cpt: 

=  Total  pressure  coefficient. 

'      (-ps 

=  Static  pressure  coefficient. 
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e.     Yaw  Angle 

Yaw  angle  is  simply  read  from  the  traverse  scale  wheel  when  the 
pressures  of  the  probe  tip  were  nulled.  This  value  is  input  to  the  program. 
/.     Temperature 

Temperature  is  taken  from  the  average  of  initial  and  final 
temperature.  Runs  are  limited  in  time  to  allow  for  a  maximum  temperature 
excursion  of  15°F. 

rp  1  max  ~  1  min 

lav  -  2 

g.    Pressure 

Pressure  is  read  from  the  barometer  and  was  recorded  before  and 
after  each  run. 

4.  REVX  Program 

This  program  is  used  to  reverse  the  Y-coordinate  of  RESULT.DAT  and 
to  store  the  data  in  PLOT.DAT  for  the  XPLANE  program.  The  REVX  program  is 
shown  in  Appendix  E. 

5.  XPLANE   Program 

The  purpose  of  this  program  is  to  read  the  data  of  PLOT.DAT  and 
convert  those  data  into  the  crossflow  direction  and  magnitude  for  the  ARROW 
program.  The  XPLANE  program  is  shown  in  Appendix  F. 

6.  ARROW  Program 

This  program  plots  the  crossplane  velocity  vector  plots.  The  ARROW 
program  is  shown  in  Appendix  G. 
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C.    EXPERIMENTAL  CONDITIONS 

To  correlate  the  data  with  those  of  Rabang,  all  the  experimental  conditions 
were  kept  as  much  like  Rabang's  as  experimental  conditions  would  allow. 

Reynolds  number,  test  section  dynamic  pressure,  test  section  velocity  and  nose 
geometry  and  roll  angle  are  kept  constant  as  possible. 

Dynamic  pressures  were  set  to  match  those  treated  by  Rabang,  giving  a 
subcritical  Reynolds  number  of  Re  =  l.lxlO5. 

The  angle  of  attack  was  fixed  at  50°  to  get  comparative  data  with  that  of  Rabang 
for  which  maximum  side  force  occurred  at  the  no  wing  and  no  grid  conditions.  (See 
Figure  28.) 
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Figure  28.     ROB802:  Side  Force  Coefficient  [Ref.  3] 
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For  all  cases  of  Rabang,  the  rose  roll  angle  was  held  fixed.  Afterbody  roll 

angles  of  the  reference  system  as  shown  in  Figure  29  [Ref.  3]. 

•  Body  A:  wings  and  tail  at  zero  roll  angle  in  a  "+"  configuration. 

•  Body  B:  no  wings  or  tails,  body  roll  angle  set  at  <J)r  =  45°. 

•  Body  C:  wings  and  tails  at  (J)r  =  45°  roll  angle  in  a  "x"  configuration. 


c 

</>R 

o 

L 

J 

BODY   B 

-S 

BODY   A 

+  N 

+A 

v 

45* 

"pS' 

\-N 

A 

+  S 

BODY   C 

Figure  29.     Body  Configurations  and  Reference  System     [Ref.  3] 

The  longitudinal  position  for  measurements  was  at  a  length/body  diameter 
ratio  of  6.  This  position  equates  to  10.5  inches  from  the  nose  of  the  missile  model. 

The  goal  of  this  experiment  was  to  validate  the  pressure  measurement  system 
for  flowfield  variables  with  elevated  levels  of  turbulence;  to  determine  the  location 
and  intensity  of  the  asymmetric  vortices  in  the  wake  of  the  VLSAM  model  at  a 
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raised  level  of  freestream  turbulence;  and  to  display  the  asymmetric  vortices  by 
velocity  mapping  and  pressure  contours.  The  purpose  is  to  correlate  the  results 
with  the  force  measurements  of  Rabang  to  provide  a  greater  understanding  of  the 
vortex  flow  field. 

D.   EXPERIMENT  PROCEDURE 

1.  Dynamic  Pressure  Calibration 

For  the  purpose  of  continuing  research,  all  of  the  turbulence  grids  were 
calibrated  in  the  tunnel.  Normally,  the  pressure  difference  between  a  set  of  static 
ports  in  the  settling  chamber  and  a  set  of  static  ports  in  the  test  section  entrance  is 
used  to  relate  to  the  actual  dynamic  pressure  in  the  test  section.  Because  of  the 
disturbance  on  the  second  set  of  static  ports  caused  by  the  frames  which  support  the 
grids,  each  grid  must  be  tested  for  its  own  tunnel  calibration  constant.  Readings 
from  the  tunnel  calibration  manometer  and  from  a  pitot-static  tube  inserted  in  the 
center  of  the  test  section  were  recorded  over  a  speed  range,  and  a  calibration  curve 
was  generated  for  each  grid.  The  calibration  curves  will  be  discussed  in  the  Results 
section. 

2.  Scanivalve  Transducer  Calibration 

The  transducer  voltage  is  first  adjusted  about  zero  in  in  milli  voltage 
range,  then  the  "CALP"  program  is  run. 

The  scanivalve  is  calibrated  by  applying  a  known  pressure  source  to  the 
scanivalve  transducer  which  is  connected  to  the  HP  Digital  Multimeter  instrument. 
The  known  pressure  source  was  provided  by  the  calibration  manometer.  (See 
Figure  30.)  The  examination  value  of  the  calibration  pressure  is  displayed  on  the 
Digital  Panel  Meter  (DPM)  (see  Figure  31)  and  the  readings  are  input  to  the 
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computer  manually  at  the  same  time.  Both  transducers  are  referenced  to  an 
ambient  pressure.  A  HP  Digital  Multimeter  converts  the  analog  voltage  signal 
from  the  scanivalve  transducer  into  a  digital  signal  and  stores  the  collected  data  into 
a  calibration  file.  This  procedure  is  performed  before  and  after  each  run  to 
measure  any  shifts  between  the  initial  and  final  readings. 

These  data  were  used  to  generate  the  calibration  curve  equation  which 
relates  the  transducer  voltage  output  to  the  wind  tunnel  dynamic  pressure. 

The  calibration  curve  equation  is  used  in  the  data  reduction  computation 
to  transform  voltage  data  into  dynamic  pressure  data. 
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Figure  30.    Calibration  Manometer 
3.     Pressure  Probe  Calibration 

The  pressure  probe  was  calibrated  by  the  manufacturer  prior  to  use  in  this 
experiment.  The  calibration  chart  is  shown  in  Appendix  D.  The  curves  of  velocity 
pressure  coefficient,  pitch  angle,  pressure  coefficient  and  total  pressure  coefficient 
vs  pitch  angle  have  been  transformed  to  polynomial  equations  by  the  author.  This 
curve-fitting  has  been  discussed  in  CONVERT  program  section.    The  5-hole 
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pressure  probe  is  rotated  until  opposing  peripheral  ports  measure  equal  pressures. 
The  corresponding  angle  rotation  determines  the  yaw  flow  angle.  For  this  reason, 
it  is  referred  to  as  a  nulling  probe.  Although  the  nulling  procedure  allows  for 
analysis  of  large  yaw  angle  flow,  the  procedure  is  mechanically  complex  and  time 
consuming. 


Figure  31.    Digital  Panel  Meter  (DPM) 
4.     Preliminary  Run  and  Data  Collection 

The  purpose  of  the  preliminary  run  was  to  determine  the  location  of  the 
asymmetric  vortices.  The  dimension  of  6.5  by  8  inches  and  the  step  of  0.5  inch  and 
the  no  grid  condition  were  used  in  the  preliminary  run.  Prior  to  each  run,  the 
initial  settling  chamber  temperature  and  barometric  pressure  were  recorded  and 
the  data  acquisition  system  and  traverser  were  fully  energized  and  allowed  to  settle 
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out  for  about  half  an  hour.  During  the  settling  period,  the  data  acquisition  system 
was  cycled  repeatedly  by  the  program  to  bring  the  relay  actuator,  relay  multiplex, 
digital  multimeter,  scanivalve  amplifier  and  traverser  to  the  operating  temperature 
condition  and  to  check  the  voltage  output  until  all  readings  were  consistent.  Next, 
the  wind  tunnel  was  started  and  the  flow  was  set  at  a  different  velocity  for  a  small 
test  measuring  probe  and  the  recorded  data  were  checked  for  consistency.  If  they 
were  not  constant,  the  data  acquisition  system  was  re-calibrated  again.  The 
condition  of  each  run  is  shown  in  Appendix  H  .  The  time  of  the  preliminary  run 
was  about  6  hours.  In  order  to  keep  the  air  density  of  test  section  as  uniform  as 
possible,  the  experimental  procedure  was  interrupted  when  the  settling  chamber 
temperature  rose  15°F  above  the  operating  temperature.  The  experiment  was 
continued  when  the  settling  temperature  had  cooled  down  within  5°F  of  the 
operating  temperature  by  the  exchange  of  air.  At  the  end  of  each  run,  the  final 
settling  chamber  temperature  and  the  barometric  pressure  were  recorded  again  and 
the  average  value  of  them  was  used  in  the  CONVERT  program. 
5.     Actual  Run 

From  the  preliminary  result,  the  dimension  of  3  by  5.5  inches  and  a  step 
of  0.25  inch  were  used  through  the  experiment.  This  dimension  covers  the  main 
portion  of  asymmetric  vortices.  Because  the  experiment  requires  considerable 
time  for  the  nulling  of  the  probe  tip  pressures  before  each  measurement  can  be 
taken,  and  because  the  settling  chamber  temperature  tended  to  rise  quickly  due  the 
friction  of  the  air  flow  through  the  turbulence  generating  grid,  the  time  duration 
was  about  10-11  hours  for  each  run. 
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E.    EXPERIMENTAL  CORRECTIONS 

Blockage  factor  corrections  were  made  by  Equations  20  and  21  from  Ref.  26. 

U  =  Uu(l+e)  (20) 

q  =  qu(l+2e)  (21) 

where 

•  U:  test  section  velocity  (lb/ft2) 

•  Uu:  Measured  test  section  velocity  (lb/ft2) 

•  q:  dynamic  pressure  (lb/ft2) 

•  qu:  Measured  dynamic  pressure  (lb/ft2) 

•  e:  blockage  correction 

The  total  blockage  correction  can  be  expressed  as  Equation  22. 

1    model  frontal  area  ,„. 

E-T  T — I 7- (22) 

4     test  section  area  ' 

The  blockage  equation  for  each  body  configuration  as  a  function  of  the  model 

angle  of  attack  has  been  investigated  by  Rabang  as  shown  in  Figure  32.    The  angle 

of  attack  was  fixed  for  the  experiments  at  50°.  The  value  of  e  equals  0.0123.  These 

equations  are  implemented  into  the  data  conversion  program  listed  in  Appendix  B. 
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Figure  32.    Blockage  Factors  [Ref.    3] 
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III.     RESULTS 

A     DYNAMIC  PRESSURE  CALIBRATION 

Wind  tunnel  dynamic  pressure  calibration  was  conducted  prior  to  the 
experiment  for  each  grid  and  no  grid.  From  these  data,  the  wind  tunnel  calibration 
factors  were  obtained.  This  reference  dynamic  pressure  is  used  for  adjusting  the 
tunnel  flow  velocity  to  the  expected  experimental  condition  for  the  different  grids. 
The  calibration  curves  and  equations  for  each  run  are  shown  in  Table  3  in  Fig.  33. 

TABLE  3.     WIND   FUNNEL  CALIBRATION  RESULT 


No  Grid 

Grid#l 

Grid  #2 

Grid  #3 

Grid  #4 

Ptrue 

Ph:0 

Ptrue  Ph:0 

Ptrue  Ph:0 

Ptrue 

PH2O 

Ptrue 

PH2O 

0 

0 

0 

0 

0       0 

0 

0.36 

0 

0.64 

0.56 

0.61 

1.17 

0.8 

0.75    0.66 

0.89 

0.99 

0.19 

0.94 

2.11 

3.34 

2.63 

1.75 

1.68   0.98 

2.14 

1.75 

1.26 

1.33 

3.83 

4.29 

3.82 

2.6 

2.55    1.55 

3.47 

2.63 

2.75 

3.33 

5.93 

6.65 

4.77 

3.12 

3.62    2.20 

4.97 

3.58 

4.12 

4.62 

7.94 

8.84 

7.56 

5.02 

4.55    2.82 

6.38 

4.45 

5.52 

5.90 

9.97 

11.25 

9.80 

6.53 

5.62    3.43 

8.13 

5.50 

6.84 

7.07 

11.40 

12.80 

11.93 

7.91 

6.74   4.09 

9.25 

6.05 

9.16 

9.10 

8.13    4.95 

10.08 

6.45 

11.0 

10.37 

9.19   5.66 

10.04  6.17 
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Figure    33(a).    Dynamic  Pressure  Calibration  at  no  Grid 
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Figure  33(b).    Dynamic  Pressure  Calibration  at  Grid  #1 
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Figure  33(c).     Dynamic  Pressure  Calibration  at  Grid  #2 


10  - 

. 

a     Delta  P 

as 

4) 

8  - 

y=  ■  0.7817+ 1.6545X 

a. 

6  - 

5 

£ 

4  - 
2  - 

0.0 

,         i        I         i         1        i 

2.0            4.0            6.0            8 
Actual  Pressure  (G#3) 

0 

Figure  33(d).    Dynamic  Pressure  Calibration  for  Grid  #3 
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Figure  33(e).    Dynamic  Pressure  Calibration  at  Grid  #4 

Figures  33  show  the  tunnel  calibration  factors  k  are  0.8891,  1.5084,  1.6487, 
1.6545  and  1.1167  for  no  grid,  grid  1,  grid  2,  grid  3  and  grid  4  respectively.  Due 
to  the  particular  portable  manometer,  the  curves  were  shifted  to  go  through  the 
origin.  These  values  were  used  in  the  CONVERT  program  for  calculating  the 
pressure  and  velocity  in  the  test  section. 

B.   TRANSDUCER  CALIBRATION 

Transducer  calibration  was  conducted  both  before  and  after  each  run.  The 
results  of  the  two  calibrations  for  each  run  are  presented  in  Table  4  and  Figure  34 
which  shows  a  slight  shift  between  initial  and  final  runs.  For  a  given  voltage,  the 
initial  and  final  equations  differed  by  approximately  5.16%  for  no  grid  and  0.03% 
for  grid  1  for  an  experiment  time  duration  of  about  10  hours.  An  average  of  the 
two  equations  was  used  in  the  CONVERT  program  for  all  case  runs  to  minimize  the 
error.  In  each  run,  when  the  voltage  difference  between  P2  and  P3  is  within  0.05, 
the  data  were  recorded.    The  maximum  relative  error  is  1.7%  in  pressure  and 
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0.85%  in  velocity  for  Grid  1.   For  no  grid  condition,  the  maximum  relative  error 
is  3.23%  in  pressure  and  1.5984%  in  velocity. 

For  this  experiment,  since  the  air  flow  Mach  number  was  0.1,  the 
incompressible  flow  assumption  was  a  reasonable  approximation.  In  addition,  it  is 
assumed  that  the  temperature  and  velocity  gradients  are  negligible  in  a  small  region 
around  the  probe. 

TABLE  4.    TRANSDUCER  CALIBRATION  RESULT 


TEST  RUN 

G#0 

G#l 

pressure 

voltaee 

pressure 

voltaee 

pressure 

voltaee 

-8.91 

-2.06663 

-8.26 

-1.9361 

-8.22 

-1.9152 

-4.37 

-1.03319 

-3.44 

-0.8304 

-3.92 

-0.9304 

Before 

0.29 

0.08565 

0.55 

0.1278 

1.22 

0.3017 

4.87 

1.17548 

3.24 

0.7727 

5.64 

1.3487 

8.80 

2.1055 

6.18 

1.4682 

10.39 

2.4762 

9.92 

2.3514 

13.52 

3.2192 

-8.81 

-2.00795 

-9.26 

-2.1754 

-7.77 

-1.8257 

-4.46 

-1.01094 

-4.37 

-1.0658 

-3.53 

-0.8461 

After 

0.49 

0.172168 

-0.19 

-0.0720 

4.89 

1.166 

4.74 

1.17583 

6.41 

1.5074 

9.16 

2.1786 

9.52 

2.3122 

9.87 

2.3242 

12.32 

2.9292 
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Figure  34(a).    Transducer  Calibration  at  no  Grid  Condition  for  the 

Preliminary  Run 
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Data  from  "Transducer  Calib.  Data" 
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Figure  34(b).    Transducer  Calibration  at  no  Grid  Condition 
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Data  from  "Transducer  Calib.  Data" 
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Figure  34(c).    Transducer  Calibration  at  Grid  #1  Condition 

C.    PRELIMINARY  RUN 

The  objective  of  the  preliminary  run  was  to  determine  the  location  of 
asymmetric  vortices.  This  result  was  used  to  determine  the  size  of  the  measured 
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plane  and  the  step  distance  for  the  following  runs,  so  that  more  accurate  velocity 
and  pressure  data  could  be  obtained.  The  preliminary  run  conducted  6d 
downstream  of  the  nose  of  the  missile  in  the  plane  normal  to  the  freestream  at 
ambient  turbulence  conditions,  consisted  of  a  6.5-  by  8-inch  measured  phase,  a  step 
distance  of  0.5  inch,  and  the  no  grid  condition.  Figure  35  shows  the  velocity 
vectors  superimposed  on  the  measured  grid  which  clearly  shows  the  location  of  the 
vortex.  The  nose  induced  asymmetric  vortices  are  marked  by  the  swirling  vectors. 
The  velocities  give  a  representation  of  an  indirect  flow  visualization  of  the  vortex. 
The  crossflow  is  expected  to  reach  zero  at  the  freestream  region.  This 
inconsistency  in  arrow  magnitude  and  direction  are  seen  at  the  outer  boundaries 
because  of  a  possible  misalignment  of  the  traverser.  Figures  36  and  37  show  the 
2D  contour  and  3D  surface  plots  of  local  total  pressure  coefficient  and  local  static 
pressure  coefficient  with  the  same  data.  The  value  between  two  contour  lines  is 
0.15.  From  Figure  36,  it  is  clear  that  the  location  of  asymmetric  vortices  are  2.5  to 
5.5  inches  on  the  Z  axis  and  0  to  2  inches  on  the  Y  axis.  Hence  a  small  planar  survey 
grid,  3  x  5.5  inches  and  with  a  step  of  0.25  inch,  was  determined  for  further 
experiments. 

Figures  36  and  37  show  the  total  pressure  coefficient  to  be  uniform  at  the 
freestream  and  a  high  negative  pressure  gradient  to  exist  in  the  core  of  the  vortex. 
The  static  pressure  coefficient  has  a  positive  value  at  the  center  of  the  measure 
planar  and  has  a  moderate  negative  pressure  gradient  in  the  vortex  core.  More 
accurate  investigations  in  the  vortex  region  are  discussed  in  the  following  section. 
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Figure  35.     Preliminary  Crossflow  Velocity  Vector  Superimposed  on 

the  Grid. 
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Figure  36(a).     Total  Pressure  Coefficient  Contour7 


7Dashed  line  indicates  the  negative  value.  Note:  data  as  plotted  times  100.  The 
distance  between  two  isobars  is  15. 
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TEST  RUN.STATIC  PRESSURE  COEFF. 
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Figure  36(b).     Local  Static  Pressure  Coefficient  Contour8 


8Dashed  line  indicates  the  negative  value.   Note:   data  as  plotted  times  100.   The 
distance  between  two  isobars  is  15. 
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Figure  37  (a).  3D  Surface  Plot.     Local  Total  Pressure  Coefficient 
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Figure  37  (b).    3D  Surface  Plot.     Local  Static  Pressure  Coefficient 

D.   BODY  ONLY  WITHOUT  TURBULENCE 

The  results  from  Rabang  show  a  maximum  side  force  coefficient  to  be  about  - 
4.2  at  50°  AOA  for  body-only  and  the  no  grid  condition.  [Ref.  3]  (See  Figure  28.) 

As  marked  by  the  swirling  vectors  in  Figure  38,  two  vortices  form  two  circles 
and  rotate  in  opposite  directions.  Represented  by  the  velocity  magnitude,  the 
vortex  strength  reaches  its  maximum  in  the  outer  core  of  the  two  vortices.    The 
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maximum  side  force  is  due  to  the  relative  strengths  of  the  two  vortices  and  the 
displaced  location  of  the  vortices  from  a  symmetric  configuration. 

The  total  pressure  coefficient  is  expected  to  be  constant  in  the  outer 
incompressible  and  in  viscid  portion  of  the  vortex.  The  viscous  forces  found  within 
the  vortex  core  decrease  the  flow's  fluid-mechanical  energy;  therefore  the  total 
pressure  coefficient  becomes  negative.  The  vortex  contour  with  a  Cpt  of  -1.35  is 
approximately  0.57d  above  the  missile  surface.  The  other  vortex  with  a  Cpt  of 
-1.43  is  approximately  0.26d  above  the  missile  surface.  It  is  clear  to  see  from 
Figure  39(a)  that  the  extent  of  each  vortex  is  about  0.86d  wide  and  the  distance 
between  vortex  centers  is  about  0.86d.  In  a  negative  sense,  closer  isobars  have  a 
higher  gradient  which  forms  two  inverted  spike  shaped  vortices  as  shown  in  Figure 
40(a).  It  is  clear  to  see  the  shapes  of  vortex  cores  in  this  figure. 

In  the  freestream  condition,  the  static  pressure  coefficient  is  expected  to  be 
zero.  [Ref.  32]  While  the  static  pressure  coefficient  progresses  inward  from  the 
freestream  conditions  to  the  vortex  core,  the  angular  velocity  increases,  static 
pressure  drops,  and  the  static  pressure  coefficient  itself  decreases  from  zero  to  a 
negative  value.  The  vortex  contour  with  a  Cps  of  -1.8  vortex  is  approximately 
0.37d  above  the  missile  surface.  The  other  vortex  contour  with  a  CpS  of  -2.22  is 
approximately  0.29d  above  the  missile  surface.  Figure  39(b)  shows  1.1 4d  for  the 
width  of  each  vortex.  The  static  pressure  coefficient  has  a  lower  gradient  inward  to 
the  vortex  core.  Figure  40(b)  exhibits  a  fatter  inverted  spike  shape,  indicating  a 
diffused  and  lesser  strength.  The  vortex  closer  to  the  missile  is  stronger,  as  can  be 
seen  by  the  higher  local  gradients  and  the  deeper  peak. 
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Figure  38.    Crossflow  Velocity  Vector  Superimposed  on  the  Grid  for 

no  Grid  Condition 
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Figure  39(a).    Total  Pressure  Coefficient  Contour  at  no  Grid 

Condition.9 


^Dashed  line  indicates  the  negative  value.   Note:   data  as  plotted  times  100    The 
distance  between  two  isobars  is  15. 
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NO  GRID,  STATIC  PRESSURE  COEFF. 
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Figure  39(b).    Local  Static  Pressure  Coefficient  Contour  at  no  Grid 

Condition. i° 


10Dashed  line  indicates  the  negative  value.  Note:  data  as  plotted  times  100.  The 
distance  between  two  isobars  is  15. 
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Figure  40(a).  3D  Surface  Plot.     Local  Total  Pressure  Coefficient  at  no 

Grid   Condition. 
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Figure  40(b).    3D  Surface  Plot.    Local  Static  Pressure  Coefficient  at  no 

Grid   Condition. 


E.    BODY-ONLY  WITH  TURBULENCE 

Rabang  demonstrated  that  for  the  body-only  case,  an  increase  in  turbulence 
intensity  tends  to  reduce  dramatically  the  maximum  induced  side  force.  [Ref.  3] 
(see  Figure  41). 
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Figure  41     R1B801.     Side  Force  Coefficient.  [Ref.  3] 

Figure  42  shows  the  crossflow  velocity  vectors  and  a  slight  shift  in  direction. 
Represented  by  the  swirling  vectors,  the  vortex  has  less  strength  than  in  the  no 
turbulent  condition.  The  asymmetry  can  still  be  seen  in  Figure  42. 

The  total  pressure  coefficient  has  a  fatter  spike  shape  and  more  of  a  plateau  at 
the  vortex  core  than  in  the  no  turbulent  condition  as  shown  in  Figure  44(a).  One 
vortex  has  a  Cpt  contour  of  -0.97  a  distance  of  0.43d  above  the  missile  surface  and 
the  other  one  has  a  Cpt  contour  of  -1.16  a  distance  of  0.4d  above  the  missile  surface. 
The  distance  between  the  two  vortices'  cores  is  0.71d,  which  is  0.15d  closer  than  the 
one  in  the  no  turbulent  condition.  (See  Figure  43(a).)  Each  vortex  has  a  larger 
extent  than  the  one  with  no  turbulence  at  the  same  isobars. 

The  static  pressure  coefficient,  similar  to  the  total  pressure  coefficient,  has  a 
more  diffused  shape  than  in  the  no  turbulent  condition.  (See  Figure  4(b).)  The  Cps 
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contour  of  -0.45  for  one  vortex  is  more  or  less  0.36d  above  the  missile  surface  and 
the  Cps  contour  of  -0.72  for  the  other  vortex  is  approximately  0.5d  above  the 
missile  surface.  The  distance  between  these  two  vortices'  cores  is  closer  than  that  in 
no  turbulent  condition;  each  vortex  has  a  width  of  about  1.1 4d.  (See  Figure  43(b).) 
Comparing  the  extents  of  the  vortices  with  and  without  flowfield  turbulence,  a 
more  tightly  wrapped  vortex  (smaller  diameter)  has  a  greater  strength.  The  result 
of  the  turbulence  is  to  diffuse,  but  not  to  eliminate,  the  asymmetric  vortices.  With 
the  additional  turbulence,  the  vortex  centers  are  closer  to  the  missile  surface  and 
more  symmetric.  These  facts  agree  with  Rabang's  results. 
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Figure  42.     Crossflow  Velocity  Vector  Superimposed  on  the  Grid  for 

Grid  1  Condition. 
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Figure  43(a).    Total  Pressure  Coefficient  Contour  at  Grid  1 

Condition.11 


nThe  dashed  line  indicates  the  negative  value.  Note:  data  as  plotted  times  100.  The 
distance  between  two  isobars  is  15. 
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Figure  43(b).    Local  Static  Pressure  Coefficient  Contour  at  Grid  1 

Condition12 


12Dashed  line  indicates  the  negative  value.  Note:  data  as  plotted  times  100.  The 
distance  between  two  isobars  is  15. 
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Figure  44(a).  3D  Surface  Plot.     Local  Total  Pressure  Coefficient  at 

Grid  1  Condition. 
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Figure  44(b).    3D  Surface  Plot.    Local  Static  Pressure  Coefficient  at 

Grid  1  Condition. 
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IV.      CONCLUSION  AND  RECOMMENDATIONS 

The  flowfield  downstream  of  a  vertically-launched  surface-to-air  missile 
model  at  an  angle  of  attack  of  50°  and  a  Reynolds  number  of  1.1  x  105  was 
investigated  in  a  wind  tunnel  of  the  Naval  Postgraduate  School.  The  body-only 
configuration  was  tested.  Two  flowfield  conditions  were  treated:  the  nominal 
ambient  wind  tunnel  condition,  and  a  condition  with  grid- generated  turbulence  of 
3.8%  turbulence  intensity  and  a  dissipation  length  scale  of  1.7  inches.  The 
following  conclusions  were  reached: 

1)  The  relative  strengths  of  the  asymmetric  vortices  can  be  noted  by  the  sharp 
spike  shape  in  the  ambient  condition;  this  condition  becomes  diffused  and  becomes 
fatter  in  the  turbulent  condition; 

2)  The  right  side  vortex  has  greater  strength  than  the  left  side  one  as  seen  by 
the  changes  in  the  total  pressure  coefficient  and  static  pressure  coefficient  contours 
with  and  without  a  turbulent  condition; 

3)  An  increase  in  turbulence  intensity  tends  to  reduce  the  strength  of  the 
asymmetric  nose-generated  vortices; 

4)  An  increase  in  turbulence  intensity  also  pushes  two  asymmetric  vortices 
closer  together; 

5)  Crossflow  velocities  were  examined  and  were  found  to  indicate  the 
behavior  denoted  by  the  pressure  contours. 

To  understand  better  the  behavior  of  asymmetric  vortices  induced  by  the 
missile  nose,  a  few  recommendations  are  suggested  as  follows: 

1)  Examine  the  vortices  at  positions  of  length/diameter  ratios  of  3  and  9; 
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2)  Investigate  the  interaction  effects  of  wings  and  consider  the  effect  of  roll 
angle  on  asymmetric  vortices; 

3)  Investigate  the  asymmetric  vortex  behavior  affected  by  various  angles  of 
attack  and  turbulent  conditions  with  varying  intensities  and  length  scales. 
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APPENDIX  A.    PPROBE  PROGRAM 

1  DEF  SEG:CLEAR  ,&HFE00:GOTO  4  'BEGIN  PCIB  PROGRAM  SHELL 

2  GOTO  1000  '  USER  PROGRAM 

3  GOTO  900  '  ERROR  HANDLING 

4  I=&HFE00  '  COPYRIGHT  HEWLETT-PACKARD  1984,1985 

5  PCB.DIR$=ENVIRON$("PCIB") 

6  IS=PCIB.DIRS-i-"\PCIBILC.BLD" 

7  BLOAD  IS,I 

8  CALL  I(PCIB.DIRS,I%,J%):PCIB.SEG=I% 

9  IF  J%=0  THEN  GOTO  1 3 

10  PRINT  "UNABLE  TO  LOAD."; 

1 1  PRINT  "    (ERROR  #";J% ;")" 

12  END 
13" 

14  DEF  SEG=PCIB.SEG:O.S=5:C.S=10:I.V=15 

15  I.C=20:L.P=25:LD.FILE=30 
16GET.MEM=35:L.S=40:PANELS=45:DEF.ERR=50 

17  PCIB.ERRS=STRING$(64>32) :  PCIB.NAMES=STRINGS(16,32) 

18  CALL  DEF.ERR(PCIB.ERRJ>CIB.ERRS,PCIB.NAMES,PCIB.GLBERR)  :  PCIB.BASERR=255 

19  ON  ERROR  GOTO  3 
20J=-1 

21  IS=PCIB.DIRS+,\PCIB.SYN" 

22  CALL  O.S(IS) 

23  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

24  1=0 

25  CALL  I.V(I,READ.REGISTER,READ.SELnD,DEFINE,INmALIZE.SYSTEM) 

26  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

27  CALL  I.Va£NABLE.SYSTEM,DISABLE.SYSTEM,INITIALIZE,POWER.ON) 

28  IF  PCIB.ERRoO  THEN  ERROR  PCIB.BASERR 

29  CALL  I.V(I,MEASURE,OUTPUT,START,HALT) 

30  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

3 1  .C  ALLI.VG  JEN  ABLE.INT.TRIGGER,DIS  ABLE.INT.TRIGGER£N  ABLE.OUTPUT,DIS  ABLE.OUTT) 

32  IF  PCIB.ERRoO  THEN  ERROR  PCIB.BASERR 

33  CALL  I.V(I,CHECK.DONE,GET.STATUS,SET.FUNCTION)SET.RANGE) 

34  IF  PCIB.ERRo0  THEN  ERROR  PCIB.BASERR 

35  CALL  I.V(I,SET.MODE,WRITE.CAL,READ.CAL,STORE.CAL) 

36  IF  PCIB.ERR0O  THEN  ERROR  PCIB.BASERR 

37  CALL  I.V(I,DELAY,SAVE.SYSTEMJ J) 

38  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 
391=1 

40  CALL  I.V(I,SET.GATETIME,SET.SAMPLES,SET.SLOPE,SET.SOURCE) 

41  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

42  CALL  I.C(I JFREQUENCY.AUTO.FREQPERIOD.AUTO.PER) 

43  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

44  CALL  I.CaJNTERVAL,RATIO,TOTALIZE^100MILLI) 

45  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

46  CALL  I.C(I,R1,R10,R100,R1KILO) 

47  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

48  CALL  I.C(I,R10MEGA,R100MEGA,CHAN.A,CHAN.B) 

49  IF  PCIB.ERR0O  THEN  ERROR  PCIB.BASERR 

50  CALL  I.C(I,POSITrVE,NEGATIVE)COMN,SEPARATE) 
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51  IF  PCIB.ERR<>0  THEN  ERROR  PCIB.BASERR 

521=2 

531=3 

54  CALL  I.VaZERO.OHMS.SET.SPEEDJJ) 

55  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

56  CALL  I.Ca,DCVOLTS^CVOLTS,OHMS^200MILLI) 

57  IF  PCIB£RR<>0  THEN  ERROR  PCIB.BASERR 

58  CALL  I.C(I,R2,R20,R200,R2KILO) 

59  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

60  CALL  I.C(I,R20KILO,R200KILO,R2MEGA,R20MEGA) 

61  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

62  CALL  I.C(I,AUTOM,R2.5,R12.5rJ) 

63  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 
641=4 

65  CALL  I.Va,SET.COMPLEMENT,SETDRrVER,OUTPUT^O.WAIT,  ENABLE.HANDSHAKE) 

66  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

67  CALL  I.V(I JJ>ISAELE.HAM)SHAKE,SET.THRESHOLD,SET.START.BIT,SET.NTJM.BrrS) 

68  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

69  CALL  I.V(I,SET.LOGIC.SENSE,J JJ) 

70  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

71  CALL  I.C(IPOSmVE,NEGATIVE,TWOS,UNSIGNED) 

72  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

73  CALL  I.C(I,OC,TTL,R0,Rl) 

74  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

75  CALL  I.C(I,R2,R3,R4,R5) 

76  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

77  CALL  I.C(I,R6,R7,R8,R9) 

78  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

79  CALL  I.C(LR10,R11,R12,R13) 

80  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

81  CALL  I.C(I,R14,R15,R16J) 

82  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 
831=6 

84  CALL  I.V(I,SET.FREQUENCY,SET.AMPLITUDE,SET.OFFSET,SET.SYMMETRY) 

85  IF  PCIB.ERRoO  THEN  ERROR  PCIB.BASERR 

86  CALL  I.V(I,SETBURST.COUNTJ  J  J) 

87  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

88  CALL  I.Ca.SINE.SQUARETRIANGLE.CONTINUOUS) 

89  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

90  CALL  I.C(I,GATED,BURSTJ  J) 

91  IF  PCIB£RRoO  THEN  ERROR  PCIB.BASERR 
921=7 

93  CALL  I.Va,AUTOSCALE,CALIBRATE,SET.SENSrriVITY,SET.VERT.OFFSET) 

94  IF  PCIB.ERR0O  THEN  ERROR  PCIB.BASERR 

95  CALL  I.Va,SET.COUPLING,SET.POLARrrY,SET.SWEEPSPEED,SET.DELAY) 

96  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 
97CALLI.Va,SET.TRIG.SOURCE,SET.TRIG.SLOPE,SET.TRIG.LEVEL,SET.TRIG.MODE) 

98  IF  PCIB.ERR0O  THEN  ERROR  PCIB.BASERR 

99  CALL  I.VG,GET.SINGLE.WF)GETTWO.WF,GET.VERT.INFO,GETTIMEBASE.INFO) 

100  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

101  CALL  I.VG.GET.TRIG.IM^O.CALC.WFVOLT.CALC.WFTIME.CALC.WF.STATS) 

102  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

103  CALL  I.Va,CALC.RISETIME,CALC.FALLTIME,CALC.PERIOD,CALC.FREQUENCY) 

104  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 
105CALLI.V(I,CALC.PLUSWIDTH,CALC.MINUSWIDTH,CALC.OVERSHOOT,CALC.PRESHOOT) 
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106  IF  PCIB.ERR0O  THEN  ERROR  PCIB.BASERR 

107  CALL  I.Va,CALCPK.TO.PK,SET.TIMEOUT,SCOPE.STARTAlEASURE.SINGLE.WF) 

108  EF  PCIB.ERR<>0  THEN  ERROR  PCIB.BASERR 

109  CALL  I.Va,MEASURE.TWO.WFJJ J) 

110  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

111  CALLI.Ca^lONANO^lOONANO^lMICRO^lOMICRO) 

112  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

113  CALL  I.Ca^l00MICRO^lMELLI,R10MELLI^100MELLI) 

114  EF  PCIB.ERR<>0  THEN  ERROR  PCIB.BASERR 

115  CALL  I.C(I,R1,R10,R20NANO,R200NANO) 

116  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

117  CALL  I.CGJ12MICRO,R20MICRO,R200M1CRO,R2MELLI) 

118  EF  PCIB.ERR0O  THEN  ERROR  PCIB.BASERR 

119  CALL  I.C(I,R20MELLI,R200MELLI,R2,R20) 

120  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

121  CALL  I.C(I,R50NANO,R500NANO,R5MICRO,R50MICRO) 

122  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

123  CALL  I.C(I^500MICROJl5MILLIrR50MILLI^500MILLI) 

124  EF  PCIB.ERR0O  THEN  ERROR  PCIB.BASERR 

125  CALL  I.C(I,R5,R50,CHAN.A,CHAN.B) 

126  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

127  CALL  I.C(IJEXTERNAL,POSmVE,NEGATIVE,AC) 

128  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

129  CALL  I.C(I,DC,TRIGGERED,AUTO.TRIG,AUTO.LEVEL) 

130  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

131  CALL  I.C(I,X1.X10,STANDARD,AVERAGE) 

132  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

133  1=8 

134  CALL  I.V(I,OPEN.CHANNEL,CLOSE.CHANNELJJ) 

135  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

136  CALL  C.S 

137  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

138  IS=PCIB.DERS+"\PCIB.PLD" 

139  CALL  L.P(IS) 

140  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

141  IS="DMM.01":I=3:J=0:K=0:L=1 

142  CALL  DEFINE(DMM.01,IS,IJ,KJL) 

143  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

144  IS="FUNC.GEN.01":I=6:J=0:K=1:L=1 

145  CALL  DEFENE(FUNC,GEN.0U$,UJC^) 

146  EF  PCIB£RR<>0  THEN  ERROR  PCIB.BASERR 

147  IS=',SCOPE.01":I=7:J=0:K=2:L=1 

148  CALL  DEFTNE(SCOPE.01,I$J,J,KL) 

149  EF  PCIB.ERR0O  THEN  ERROR  PCIB.BASERR 

150  I$="COUNTER.01":I=1:J=0:K=3:L=1 

151  CALL  DEFINE(COUNTER.01,I$JJ,KL) 

152  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

153  I$="DIG.EN.01":I=4:J=0:K=4:L=1 

154  CALL  DEFINE(DIG.IN.01,I$,UJC1) 

155  IF  PCIB.ERR0O  THEN  ERROR  PCIB.BASERR 

156  I$="DIG.OUT.01":I=4:J=1:K=4:L=1 

157  CALL  DEFTNE(DIG.OUT.0U$,U,KL) 

158  EF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

159  I$="RELAY.ACT.01":I=8:J=O:K=5:L=l 

160  CALL  DEFINE(RELAY.ACT.0U$,UJCL) 
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161  IF  PCIB.ERRoO  THEN  ERROR  PCIB.BASERR 

162  IS="RELAY.MUX.01  ":I=2:J=0:K=6:L=1 

163  CALL  DEFINE(RELAY.MUX.01,IS,I,J,KL) 

164  IF  PCIB.ERR<>0  THEN  ERROR  PCIB.BASERR 

800  I$=ENVIRONS("PANELS")+"\PANELS£XE" 

801  CALL  L.S(I$) 

899  GOTO  2 

900  IF  ERR=PCIB.BASERR  THEN  GOTO  903 

901  PRINT  "BASIC  ERROR  #";ERR;"  OCCURRED  IN  LINE  ";ERL 

902  STOP 

903  TMPERR=PCIB.ERR:IF  TMPERR=0  THEN  TMPERR=PCIB.GLBERR 

904  PRINT  "PC  INSTRUMENT  ERROR  #";TMPERR;"  DETECTED  AT  LINE  ";ERL 

905  PRINT  "ERROR:  ";PCIB.ERRS 

906  IF  LEFTS(PCIB.NAMES,1)<>CHR$(32)  THEN  PRINT  "INSTRUMENT:  ";PCIB .NAMES 

907  STOP 

908  COMMON  PCIB.DIRS,PCIB.SEG 

909  COMMON  LD.FILE,GET.MEMJ>ANELS,DEF£RR 

910  COMMON  PCIB.BASERR,PCIB.ERR,PCIB.ERR$,PCIB.NAME$,PCIB.GLBERR 

911  COMMON  READJlEGISTERJlEAD.SELnD.DEFINE.INTnALIZE.SYSTEM, 

ENABLE.SYSTEM,DISABLE.SYSTEM,INITIALIZE,POWER.ON,MEASURE,OUTPUT, 
START  JIALTJENABLE.INT.TRIGGER.DISABLE.INT.TRIGGER^NABLE.OUTPUT, 
DISABLE.OUTPUT,CHECK.DONE,GETSTATUS 

912  COMMON  SET.FUNCTION.SET.RANGE.SET.MODE.WRITE.CAL.READ.CAL, 

STORE.CAL,DELAY,SAVE.SYSTEM,SET.GATETIME,SETSAMPLES,SET.SLOPE, 

SET.SOURCE,ZERO.OHMS,SET.SPEED,SET.COMPLEMENT,SET.DRIVER, 

OUTPUT.NO.WATTJENABLE.HANDSHAKEJ)ISABLE.HANDSHAKE 

913  COMMON  SETTHRESHOLD.SET.STARTBITSETNUM.BITS.SETLOGIC.SENSE. 

SET.FREQUENCY,SET.AMPLITUDE,SET.OFFSET,SET.SYMMETRY, 

SET.BURST.COUNT,AUTOSCALE,CALIBRATE,SETSENSITIVITY, 

SET.VERT.OFFSET.SETCOUPLINCSET.POLARITY.SET.SWEEPSPEED 

914  COMMON  SETDELAY,SETTRIG.SOURCE,SETTRIG.SLOPE,SETTRIGLEVEL, 

SET.TRIG.MODE,GETSINGLE.WF,GET.TWO.WF,GET.VERT.INFO, 

GET.TIMEBASE.INFCGET.TRIG.INFO.CALC.WFVOLT.CALC.WFTIME, 

CALC.WF.STATS.CALC.RISETIME.CALC.FALLTIME.CALC.PERIOD 

915  COMMON  CALCFREQUENCY,CALC.PLUSWIDTH,CALC.MINUS WIDTH, 

CALC.OVERSHOOT,CALCPRESHOOT,CALC.PKTO.PK,SETTIMEOUT, 
SCOPE. START,MEASURE.SINGLE.WF,MEASURE.TWO.WF,OPEN.CHANNEL, 
CLOSE.CHANNEL 

916  COMMON  FREQUENCY, AUTO.FREQJ>ERIOD AUTO PER,INTERVAL,RATIO, 

TOTALIZER  1 OOMILLI^  1  ,R  1 0,R  1  (XLR 1 KILOJ* 1 0MEGA.R  1 00MEGA.CHAN.  A , 
CHAN.B  POSmVE^lEG  ATIVE.COMN.SEPARATE.DCVOLTS  ACVOLTS,OHMS , 
R200MILLI,R2,R20,R200,R2KILO,R20KILO,R200KILO 

917  COMMON  R2MEGA,R20MEGA,AUTOM,R2.5,R12.5,POSITIVE,NEGATIVE,TWOS, 

UNSIGNED,OC,TTL^0,R1^2,R3P4,R5^6^7^8^9^10tR  11 ,R12,R13,R14,R15, 

R16,SINE,SQUARE,TRIANGLE,CONTINUOUS,GATED,BURSTP10NANO, 

R  100NANO.R  1  MICROS  1 0MICRO.R100MICRO 

918  COMMON  RlMILLI,R10MILLipi00MILLipi^l0tR20NANOfR200NANOJl2MICRO, 

R20MICRO,R200MICRO,R2MILLI,R20MILLI,R200MILLI,R2,R20,R50NANO, 

R500NANO^5MICRO^50MICROtR500MICROP5MILLIrR50MILLiP500MILLIrR5, 

R50,CHAN.A,CHAN.B,EXTERNAL,POSrnVE 

919  COMMON  NEGATrVEtAC,DC,TRIGGEREDrAUTO.TRIG,AUTO.LEVEL,XlrX10, 

STAND  ARD.AVERAGE 

920  COMMON  DMM.01,FUNC.GEN.01,SCOPE.01,COUNTER.01J)IG.IN.01,DIG.OUT.01, 

RELAY.ACT.01  .RELAY.MUX.01 
999  "END  PCIB  PROGRAM  SHELL 
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1000  REM  THIS  STEP  INITIALZES  THE  HP  SYSTEM 

1010  CLS 

1020  OPTION  BASE  1 

1030  DIM  P(5),PA(50,5) PP(50,5),XPT(50),YPT(50),X(50),Y(50),YAW(50) 

1040  REM 

1050  CALL  IMTIALIZE.SYSTEM(PGMSHEL.HPC) 

1060  REM 

1070  REM  SET  FUNCTIONON  THE  'DMM'  ,  "RELAY  MUX  ,  *RELAY  ACTUATOR' 

1080  REM 

1090  CALL  SET.FUNCTION(DMM.01, DC  VOLTS) 

1 100  CALL  SET.RANGE(DMM.01,AUTOM) 

1110  CALL  DISABLE.INT.TRIGGER(DMM.01) 

1 120  CALL  ENABLE.OUTPUT(RELAY.MUX.01) 

1130  CALL  ENABLE.OUTPUT(RELAY.ACT.01) 

1140  REM  *************  PROGRAM  TRAVERSE  ******************* 

1150  REM 

1160  REM      OPEN  THE  COM  PORT  AND  INITIALIZE  THE  MOTOR  SETTINGS 

1170  OPEN  "COM1:1200,N,8,1,RS,CS,DS,CD"  AS  #1 

1 180  REM  SET  MOTOR  DEFAULT  VALUES 

1190  DATA  2000,2000,2000,2,2,2,0.000125,0.000125,0.000125 

1200  READ  V1,V2,V3,R1,R2,R3,C1,C2,C3 

1210  REM  DEFINE  CHARACTERS  FCR  DATA  REDUCTION  ALGORITHM 

1220  RN2S="RENAME  A:RAW.DAT  " 

1230  HEAD1S  =  "  #     X       Y        PI         P2         P3         P4         P5        YAW  " 

1240  FORMATS=  "##  ##.##  ##.##   ###.###   ###.###   ###.###  ###.###  ###.###  ###.##" 

1250  PRINT 

1260  PRINT  "»**********************************************" 

1270  PRrNT  "**  USER  MUST  SELECT  'CAPS  LOCK'  FUNCTION  **" 
1280  PRINT  "***********************************************" 

1290  REM  DISPLAY  MOTOR  DEFAULT  SETTINGS 

1300  PRINT  "  ***********************************" 

1310  PRINT  "  PNITIALIZED  VALUES  FOR  ALL  MOTOR  SETTPNGS:" 

1320  PRTNT  "  VELOCITY  =  1000  STEPS/SEC" 

1330PRPWT"  RAMP(MOTOR  ACCELERATION)  =  2  (6000  STEPS/SECA2)" 

1 340  PRPNT  "  DEFAULT  PNCREMENTAL  UNITS  ARE  INCHES " 

1350  PRINT "  I***********************************" 

1360  PRTNT 

1370  PRTNT  "NOTE! !  USE  MANUAL  CONTROL  TO  INITIALIZE  PROBE  POSITION  BEFORE'' 

1380  PRINT"  SELECTING  COMPUTER  CONTROLLED  MOVEMENT.      " 

1390  PRTNT 

1400  INPUT  "MANUAL  CONTROL  OR  COMPUTER  CONTROL  (ENTER  "MAN'  OR  'CP')";CONS 

1410  IF  CON$="CP"  THEN  3490 

1420  REM  OPTION  TO  CHANGE  DEFAULT  SETTINGS  OF  VELOCITY  OR  ACCELERATION 

RAMP 
1430  PRPNT 
1440  PRPNT 

1450  PRINT  "  DO  YOU  WANT  TO  CHANGE  THE  VELOCITY  OR  ACCELERATION  RAMP" 
1460  PRINT  "         DEFAULT  SETTINGS?  (Y  OR  N)" 
1470  PRINT 

1480  PRINT  "IF  "NO',  THIS  PROGRAM  WILL  THEN  LET  YOU  DEFTNE  THE" 
1490  PRINT  "DISTANCE  YOU  WANT  TO  MOVE  (PN  PNCHES).  IF  YES'," 
1500  PRINT  "YOU  CAN  CHANGE  ANY  OR  ALL  OF  THE  DEFAULT  SETTINGS  FOR  ANY 

MOTOR." 
1510PRPNT 
1520  PRrNT 
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1530  PRINT 

1540  INPUT  "DO  YOU  WANT  TO  CHANGE  ANY  OF  THE  DEFAULT  SETTINGS?  (Y  OR      N)";DS 

1550  IF  DS="Y"  THEN  1590 

1560  IF  DS="N"  THEN  2220 

1570  REM 

1580  REM    ****  OPERATOR  SELECTED  MOTOR  VARIABLES  ***** 

1590  PRINT 

1600  PRINT 

1610  INPUT  "WHICH  DEFAULT  VALUE?  (ENTER  TTOR  VELOC  OR  '2'  FOR  ACCEL  RAMP)";L 

1620  ON  L  GOTO  1690,1930 

1630  PRINT  "DO  YOU  WANT  TO  CHANGE  THE  DEFAULT  VELOCITY?  (Y  OR  N)" 

1640  INPUT  VS 

1650  IF  VS="Y"  THEN  1690 

1660  PRINT  "DO  YOU  WANT  TO  CHANGE  THE  DEFAULT  ACCELERATION  RAMP?  (Y  OR  N)" 

1670  IF  RS="Y"  THEN  1990 

1680  IF  R$="N"  THEN  1450 

1690  PRINT 

1700  PRINT 

1710  INPUT  "WHICH  MOTOR  VELOCITY  DO  YOU  WISH  TO  CHANGE?  (1,2,  OR  3)";J 

1720  ON  J  GOTO  1730,1830,1880 

1730  PRINT 

1740  PRINT 

1750  INPUT  "ENTER  DESIRED  VELOCITY  OF  MOTOR  #1";V1 

1760  PRINT 

1770  PRINT 

1780  PRINT 

1790  PRINT  "DO  YOU  WANT  TO  CHANGE  VELOCITY  OF  ANOTHER  MOTOR?  (Y  OR  N)" 

1800  INPUT  VS 

1810  IF  VS="Y"  THEN  1690 

1820  IF  VS="N"  THEN  1430 

1830  PRINT 

1840  PRINT 

1850  INPUT  "ENTER  DESIRED  VELOCITY  OF  MOTOR  2";V2 

1860  PRINT 

1870  GOTO  1780 

1880  PRINT 

1890  PRINT 

1900  INPUT  "ENTER  DESIRED  VELOCITY  OF  MOTOR  #3";V3 

1910  PRINT 

1920  GOTO  1780 

1930  PRINT 

1940  PRINT 

1950  INPUT  "WHICH  MOTOR  ACCEL  RAMP  DO  YOU  WANT  TO  CHANGE?  (1,2,  OR  3)";K 

1960  ON  K  GOTO  1970,2060,2120 

1970  PRINT 

1980  PRINT 

1990  INPUT  "ENTER  DESIRED  ACCELERATION  RAMP  OF  MOTOR  #1";R1 

2000  PRINT 

2010  PRINT 

2020  PRINT  "DO  YOU  WANT  TO  CHANGE  THE  ACCEL  RAMP  OF  ANOTHER  MOTOR?  (Y  OR 

N)?" 
2030  INPUT  RMS 
2040  IF  RM$="Y"  THEN  1930 
2050  IF  RMS="N"  THEN  1450 
2060  PRINT 


105 


2070  PRINT 

2080  INPUT  "ENTER  DESIRED  ACCELERATION  RAMP  OF  MOTOR  #2";R2 

2090  PRINT 

2100  PRINT 

21 10  GOTO  2000 

2120  PRINT 

2130  PRINT 

2140  INPUT  "ENTER  DESIRED  ACCELERATION  RAMP  OF  MOTOR  #3";R3 

2150  PRINT 

2160  PRINT 

2170  GOTO  2000 

2180  REM 

2190  REM  DEFINE  DISTANCE  TO  MOVE  MOTOR 

2200  PRINT 

2210  PRINT 

2220  PRINT 

2230  REM  INITIALIZE  MOTOR  INCREMENTS  TO  ZERO 

224011=0 

225012=0 

226013=0 

2270  PRINT 

2280  PRINT  "  ********************************************************************" 

2290  PRINT  "  **        DEFINE  WHICH  MOTOR  YOU  WANT  TO  MOVE  **" 

2300  PRINT  "  **  **" 

2310  PRINT  "  **  NOTE!!!   A  POSITIVE  ('+*)  INCREMENT  TO  A  MOTOR  **" 

2320  PRINT  "  **  MOVES  TRAVERSER  AWAY  FROM  THAT  PARTICULAR  MOTOR  **" 
2330  PRINT  "  **  **" 

2340  PRINT  "  **  --  MOTOR  #1  MOVES  THE  PROBE  UPSTREAM  AGAINST  THE  FLOW  **" 
2350  PRINT  "  **  --  MOTOR  #2  MOVES  THE  PROBE  TOWARD  THE  ACCESS  WINDOW  **" 
2360  PRINT  "  **  --  MOTOR  #3  MOVES  THE  PROBE  VERTICALLY  DOWNWARD  **" 

2370  PRINT  "  ******************************:************************************" 

2380  PRINT 

2390  PRINT 

2400  INPUT  "WHICH  MOTOR  DO  YOU  WANT  TO  MOVE?  (1,2,  OR  3)";L 

2410  ON  L  GOTO  2420,2680,2970 

2420  PRINT 

2430  PRINT 

2440  PRINT  "HOW  FAR  DO  YOU  WANT  TO  MOVE  MOTOR  #1?" 

2450  PRINT  "  *********  (ENTER  DISTANCE  IN  INCHES)  *********" 

2460  INPUT  II 

2470  PRINT 

2480  PRINT"  *********************************" 

2490  PRINT 

2500  PRINT  "SUMMARY  OF  OPERATOR  INPUTS:" 

2510  PRINT  "  MOTOR  #1    VELOCITY  =  ";V1 

2520  PRINT  "  ACCELERATION  RAMP  =  ";R1 

2530  PRINT  "  INCREMENTAL  DISTANCE  =  ";I1;"INCHES" 

2540  PRINT"  *********************************" 

2550  PRINT  "DO  YOU  WANT  TO  CHANGE  ANY  OF  THESE  VALUES?  (Y  OR  N)" 

2560  PRINT 

2570  PRINT  "ENTER  "N  TO  START  MOTOR  MOVEMENT.  ENTER  'Y  TO  RETURN" 

2580  PRINT  "TO  VARIABLE  SELECTION  SUBROUTINE." 

2590  INPUT  V$ 

2600  IF  V$="Y"  THEN  1430 

2610GOSUB3410 
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2620  PRINT 

2630  PRINT  "DO  YOU  WANT  TO  MOVE  ANOTHER  MOTOR  ALSO?  (Y  OR  N)?" 

2640  INPUT  CS 

2650  IF  C$="Y"  THEN  2220 

2660  IF  CS="N"  THEN  3260 

2670  PRINT 

2680  PRINT 

2690  PRINT  "HOW  FAR  DO  YOU  WANT  TO  MOVE  MOTOR  #2?" 

2700  PRINT  "  *********  (ENTER  DISTANCE  IN  INCHES)  *********" 

2710  INPUT  12 

2720  PRINT 

2730  PRINT 

2740  REM  DISPLAY  OPERATOR  SELECTED  MOTOR  VARIABLES 

2750  PRINT"  *********************************" 

2760  PRINT 

2770  PRINT  "SUMMARY  OF  OPERATOR  INPUTS:" 

2780  PRINT  "         MOTOR  #2    VELOCITY  =  ";V2 

2790  PRINT  "  ACCELERATION  RAMP  =  ";R2 

2800  PRINT  "  INCREMENTAL  DISTANCE  =  ";I2;"INCHES" 

2810  PRINT"  *********************************" 

2820  PRINT 

2830  PRINT 

2840  PRINT  "DO  YOU  WANT  TO  CHANGE  ANY  OF  THESE  VALUES?  (Y  OR  N)" 

2850  PRINT 

2860  PRINT  "ENTER  N'  TO  START  MOTOR  MOVEMENT.  ENTER  'Y'  TO  RETURN" 

2870  PRINT  "TO  VARIABLE  SELECTION  SUBROUTINE." 

2880  INPUT  VS 

2890  IF  V$="Y"  THEN  1430 

2900  GOSUB  3410 

2910  PRINT 

2920  PRINT  "DO  YOU  WANT  TO  MOVE  ANOTHER  MOTOR  ALSO?  (Y  OR  N)?" 

2930  INPUT  CS 

2940  IF  CS="Y"  THEN  2220 

2950  IF  CS="N"  THEN  3260 

2960  PRINT 

2970  PRINT 

2980  PRINT  "HOW  FAR  DO  YOU  WANT  TO  MOVE  MOTOR  #3?" 

2990  PRINT  "  *********  (ENTER  DISTANCE  IN  INCHES)  *********" 

3000  INPUT  13 

3010  PRINT 

3020  PRINT 

3030  REM  DISPLAY  OPERATOR  SELECTED  MOTOR  VARIABLES 

3040  PRINT"  *********************************" 

3050  PRINT 

3060  PRINT  "SUMMARY  OF  OPERATOR  INPUTS:" 

3070  PRINT  "  MOTOR  #3    VELOCITY  =  ";V3 

3080  PRINT  "  ACCELERATION  RAMP  =  ";R3 

3090  PRINT  "  INCREMENTAL  DISTANCE  =  n;I3;"INCHES" 

3100  PRINT 

31 10  PRINT"  *********************************" 

3120  PRINT 

3130  PRINT 

3140  PRINT  "DO  YOU  WANT  TO  CHANGE  ANY  OF  THESE  VALUES?  (Y  OR  N)" 

3150  PRINT 

3160  PRINT  "ENTER  *N  TO  START  MOTOR  MOVEMENT.  ENTER  V  TO  RETURN' 
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3170  PRINT  "TO  VARIABLE  SELECTION  SUBROUTINE." 

3180  INPUT  V$ 

3190  IF  VS="Y"  THEN  1430 

3200  GOSUB  3410 

3210  PRINT 

3220  PRINT 

3230  INPUT  "DO  YOU  WANT  TO  INPUT  ANOTHER  MANUAL  MOTOR  MOVEMENT  (Y  OR 

N)";M$ 
3240  IF  MS="Y"  THEN  2210 
3250  PRINT 

3260  PRINT  "DO  YOU  WANT  TO  INPUT  COMPUTER  CONTROLLED  MOTOR  MOVEMENT?" 
3270  PRINT  "         *********  NOTE'"  *********  " 

3280  PRINT  "  ALL  PREVIOUS  MOTOR  INCREMENT  LNPUTS  HAVE  BEEN  ZEROIZED." 
3290  PRINT  "PROGAM  WILL  LET  YOU  CHOOSE  MANUAL  OR  CP-CONTROLLED  MOVEMENT. 
3300  PRINT  "*****  (IF  'NO',  THE  PROGRAM  WILL  END).  *****" 
3310  PRINT 

3320  INPUT  "DO  YOU  WANT  COMPUTER  CONTROLLED  MOTOR  MOVEMENT  (Y  OR     N)";NS 
3330  IF  NS="Y"  THEN  3500 
3340  PRINT 
3350  PRINT 
3360  PRINT 
3370  PRINT "      ****************************" 

3380  PRINT  "      THE  PROGRAM  HAS  ENDED." 
3390  PRINT "      ****************************" 

3400  END 

3410  REM    *******  MOTOR  MOVEMENT  SUBROUTINE  ********* 

3420  PRINT  #1,  '&"   :PRINT  #1,  "E";"C1=";C1;":C2=  ';C2;":C3=":C3 

3430  PRINT  #1,  "I1=";I1;":V1=";V1;":R1=";R1; 

3440  PRINT  #1,  ":I2=";I2;":V2=";V2;":R2=";R2 

3450  PRINT  #1,"I3=";I3;":V3=";V3;":R3=";R3;":@" 

3460  RETURN 

3470  REM    ******************************************** 

3480  REM    ******************************************** 

3490  PRINT 

3500  REM  *******  COMPUTER  CONTROLLED  MOVEMENT  ******* 

3510  PRINT 

3520  PRINT  "THE  PRESSURE  DATA  WILL  BE  WRITTEN  TO  FILES  ON  DRIVE  A'  " 

3530  PRINT 

3540  PRINT  "YOU  WILL  BE  ASKED  TO  INPUT  FILE  NAMES  FOR  THESE." 

3550  PRINT 

3560  INPUT  "IS  A  FORMATTED  DISK  IN  DRIVE  'A'?  PRESS  ENTER'  TO  CONTINUE";D$ 

3570  PRINT 

3580  PRINT 

3590  PRINT 

3600  PRINT  "     ***********************************************" 

3610  PRINT"  **  NOTE!!!  **" 

3620  PRINT  "  **  COMPUTER  CONTROLLED  MOVEMENT  **" 

3630  PRINT"  **        IS  PROGRAMMED  WITH  A  **" 

3640  PRINT  "  **  DEFAULTED  NEGATIVE  MOTOR  INCREMENT  **" 

3650  PRINT  "  **  (I.E.  MOTOR  #3  WILL  MOVE  UPWARD  **" 

3660  PRINT"  **  BY  ENTERING  A  (+)  DISTANCE).  **" 

3670  PRINT  "  ************************************************" 

3680  PRINT 

3690  REM  SET  INITIAL  MOVEMENT  DISTANCE  AND  NUMBER  OF  DATA  POINTS  TO     ZERO 

3700  HT=0 
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3710  WD=0 

3720  DIST=0 

3730  XPT=0 

3740  YPT=0 

3750  N=0 

3760  PRINT 

3770  PRINT 

3780  INPUT  "WHAT  IS  THE  DIMENSION  (  X  ,  Y  )  (IN  INCHES)  THAT  YOU  WANT  TO 

MEASURE."  ;WD,HT 
3790  PRINT 

3800  INPUT  "WHAT  IS  THE  STEP  (IN  INCHES)  THAT  YOU  WANT  TO  MOVE.";DIST 
3810  YPT=INT(HT  /DIST)  +  1 
3820  XPT=INT(WD  /DIST)+  1 
3830  N=XPT*YPT 
3840  PRINT 

3850  PRINT  "THERE  ARE  ";XPT;M  *  ";YPT;"  =  ";N;"  POINTS  TO  BE  MEASURED  " 
3860  PRINT 

3870  INPUT  "ARE  THE  NUMBER  OF  POINTS  IS  OK.(Y  OR  N)";C$ 
3880  IF  CS="N"  THEN  3780 
3890  CLS 
3900  N=XPT 

3910  IF  (N  <  1)  OR  (N  >  99)  GOTO  3780 

3920  REM  ***  GENERATING  STRING  STRING  SEGMENTS  FOR  DATA  FILE  NAMES 
3930  BS  =  MIDS(STRS(1),  2):  REM  **  STRING  NUMBER  "1" 
3940  ES  =  MIDS(STRS(N),  2):  REM  **  ENDING  STRING  NUMBER  "N" 
3950  XS  =  "XXXXXX" 
3960  EXS  =  ".DAT" 
3970  CLS 

3980  PRINT  "DATA  FILES  WILL  BE  INCREMENTED  FROM:" 
3990  PRINT 

4000  PRINT  (XS  +  BS  +  EXS);  "  TO  ";  (XS  +  E$  +  EXS) 
4010  PRINT 
4020  PRINT 

4030  INPUT  "ENTER  DATA  FTLE  NAME  (6  CHARACTERS  MAX  --  NO  EXTENSION)";F2S 
4040  PRINT 
4050  PRINT 

4060  IF  LEN(F2S)  >  6  OR  LEN(F2S)  <  1  GOTO  4030 
4070  CLS 

4080  PRINT  N;  "DATA  FILES  WILL  BE  GENERATED  AND  INCREMENTED  AS  FOLLOWS: 
4090  PRINT 
4100  PRINT 

4110  PRINT  (F2S  +  BS  +  EXS);  "  TO  ";  (F2$  +  E$  +  EXS) 
4120  PRINT 
4130  PRINT 

4140  INPUT  "ARE  THE  NUMBER  OF  POINTS  AND  FTLE  NAMES  OK.(Y  OR  N)";  CS 
4150  IF  CS  =  "N"  GOTO  3780 
4160  IF  C$  =  "Y"  GOTO  4180 
4170  GOTO  4140 
4180  CLS 
4190  PRINT 
4200  PRINT 

4210  REM  SET  INITIAL  POSITION  DATA 
4220X(1)=-DIST 
4230Y(1)=-DIST 
4240  FOR  IX=2  TO  XPT+1 
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4250  X(IX)=0 

4260  NEXT  IX 

4270  FOR  JY=2  TO  YPT+1 

4280  Y(JY)=0 

4290  NEXT  JY 

4300  FOR  1=1  TOXPT 

430211=0 

4304  12=0 

4306  13=0 

4310  FOR  J=l  TO  YPT 

4320  REM  MOTOR  CP-CONTROLLED  MOTOR  MOVEMENT 

433011=0 

434012=0 

4350  B=0 

4360  REM  EACH  POINT  TAKE  10  TIMES  READINGS 

4370X(I+1)=X(I)+DIST 

4380XPT(J)=X(I+1) 

4390Y(J+1)=Y(J)+DIST 

4400YPT(J)=Y(J+1) 

4405  INPUT  "  ADJUST  THE  WHEEL  TO  MAKE  THE  P2  =P3,INPUT  THE  YAW  ANGLE";YAW(J) 

4408  PRINT 

4410  INPUT  "  PRESS  ENTER'  TO  ST/RT  THE  MEASUREMENT" ;MOVES 

4420  REM 

4430  REM  READ  FIVE  CHANNELS  AND  DISPLAY  THE  DATA 

4440  REM 

4450  STEPPER=4 

4460  SWITCH  =  3 

4470  HOMER=8 

4480  DELAY  1  =  .1 

4490  DELAY2  =  1 

4500  REM  SET  THE  S.V  PORT  TO  #4 

4510  FOR  IL=1  TO  3 

4520  THYME  =  TIMER 

4530  CALL  OUTPUT(REL A Y.ACT.01, STEPPER) 

4540  CHKTIME  =  TIMER 

4550  IF  CHKTIME  <  (THYME  +  DELAY1)  GOTO  4540 

4560  CALL  OPEN.CHANNEL(RELAY.ACT01, SWITCH) 

4570  CLS 

4580  NEXT  IL 

4590  PRINT 

4600  PRINT  "  NOW  IS  ";J;"  POINT  " 

4610  REM  START  MEASURE  FROM  PORT  4  TO  PORT  8 

4620  FOR  JJ=1  TO  5 

4630  CALL  OUTPUT(RELAY.ACT.01, STEPPER) 

4640  CHKTIME  =  TIMER 

4650  IF  CHKTIME  <  (THYME  +  DELAY2)  GOTO  4640 

4660  REM  EACH  PORT  SAMPLE  10  TIMES 

4670  FOR  11=1  TO  10 

4680ROUT=1 

4690  CALL  OUTPUT(RELAY.MUX.01^OUT) 

4700  CALL  ME ASURE(DMM.01, VOLTS) 

4710  PA(EJJ)= VOLTS 

4720  NEXT  II 

4730  CALL  OPEN.CHANNEL(RELA Y.ACT.01, SWITCH)    . 

4740  IF  JJ=5  THEN  4760 
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4750  NEXT  JJ 

4760  REM  HOME  THE  S.V  PORT  TO  #48 

4770  CALL  OUTPUT(RELAY.ACT.01, HOMER) 

4780  CALL  OPEN .CHANNEL(RELAY.ACT.01, HOMER) 

4790  REM 

4800  REM  DISPLAY  THE  SAMPLE  DATA 

4810  REM 

4820  PRINT  HE  AD  IS 

4830  FOR  IS=  1  TO  10 

4840  PRINT  USING  FORMATS;IS,XPT(J),YPT(J)J>AaS,l)JMaS,2)J?AaS3)JM(IS,4), 

PA(IS,5),YAW(J) 
4850  NEXT  IS 
4860  REM 

4870  REM  AVERAGE  THE  DATA 
4880  REM 

4890  FOR  JA  =  1  TO  5 
4900  TOTAL  =  0 
4910  FOR  IA=  1  TO  10 
4920  TOTAL  =  TOTAL  +  PA(IA JA) 
4930  NEXT  IA 

4940  AVERAGE  =  TOTAL  /10 
4950  P(JA)=AVERAGE 
4960  NEXT  JA 
4970  PRINT 

4980  PRINT  "THE  AVERAGE  ARE:  " 
4990  PRINT 
5000  PRINT  HEAD  IS 
5010  FOR  JD=1  TO  5 
5020  PP(J  JD)=P(JD) 
5030  NEXT  JD 

5040  PRINT  USING  FORMATSJ,XPT(J),YPT(J),PP(J,l)PP(J,2),PP(J,3)J>P(J,4),PP(J,5),YAW(J) 
5045  PRINT 

5050  PRINT  "DO  YOU  WANT  RE-MEASURE  AGAIN  (Y  /  N)" 
5060  PRINT 

5062  PRINT  "IF  Y'  WILL  RE-SAMPLE  AGAIN." 
5064  PRINT 

5070  INPUT  "IF  K  WELL  MOVE  THE  TRAVERSER  STEP  UPWARD  (WAIT  7  SEC  )";CS 
5075  PRPNT 

5080  IF  CS="Y"  THEN  4405 
5082  IF  CS="N"  THEN  5090 
5084  GO  TO  5070 
5090  IF  J=YPT  THEN  5160 
5100  REM 

5110  REM  MOVE  THE  TRAVERSER  STEP  UPWARD. 
5120  REM 
5130I3=-DIST 
5140  GOSUB  3410 
5150  NEXT  J 

5160  REM***  STORE  DATA  BEFORE  NEXT  SAMPLE*** 
5170  OPEN  "A:\RAW.DAT"  FOR  OUTPUT  AS  #2 
5180  PRINT  #2  EE  AD  IS 
5190  FOR  ID=lTOYPT 
5200  PRINT  #2  .USING  FORMATS;ID,XPT(ID),YPTaD)J>P(rD,l)PPaD,2)PP(ID,3),  PP(ID,4), 

PP(ID,5),YAW(ID) 
5210  NEXT  ID 
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5220  CLOSE  #2 

5230  REM  ***  GENERATING  INCREMENTED  DATA  FILE  NAME 

5240  IF  (I  >  10)  OR  (I  =  10)  THEN  1$  =  MIDS(STRS(I),  2) 

5250  IF  (I  <  10)  THEN  1$  =  (MID$(STR$(0),  2)  +  MID$(STR$(I),  2)) 

5260  FI2$  =  (F2$  +  IS  +  EXS) 

5270  PRINT 

5280  PRINT  "  WRITING  DATA  FILE  ";  FI2S 

5290  DF2$=RN2$+FI2$ 

5300  REM  **  RENAME  DATA  FILE 

5310  SHELL  DF2S 

5320  REM 

5330  REM  MOVE  THE  TRAVERSER  TO  THE  NEXT  SAMPLE  POSITION 

5340  REM 

5350  PRINT 

5360  IF  I=XPT  THEN  5430 

5370  INPUT  "THEN  PRESS  ENTER'  FOR  NEXT  COLUMN  SAMPLE(  90  SEC)  ";MOVES 

5390  I2=-DIST 

5400  I3=HT 

5410GOSUB3410 

5420  NEXT  I 

5430  CLS 

5440  PRINT  "ALL  MOVEMENTS  COMPLETE" 

5450  PRINT 

5460  PRINT 

5470  PRINT  "YOU  WANT  TO  REPOSITION  TRAVERSER  FOR  ANOTHER  MOVEMENT(YOR  N)?' 

5480  PRINT 

5490  PRINT  "IF  'Y',  THE  PROGRAM  WILL  TAKE  YOU  TO  MANUAL  CONTROL  SUBROUTINE." 

5500  PRINT  "IF  N*.  THE  PROGRAM  WILL  END." 

5510  PRINT 

5520  INPUT  "ANOTHER  MOVEMENT";RS 

5530  IF  RS  =  "Y"  THEN  1370 

5540  IF  RS  =  "N"  THEN  3370 
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APPENDIX  B.    CALP  PROGRAM 

1  DEF  SEG:CLEAR  ,&HFE00:GOTO  4  'BEGIN  PCIB  PROGRAM  SHELL 

2  GOTO  1000  '  USER  PROGRAM 

3  GOTO  900  '  ERROR  HANDLING 

4  I=&HFE00  '  COPYRIGHT  HEWLETT-PACKARD  1984,1985 

5  PCB.DIRS=ENVIRON$(,*PCIB") 

6  I$=PCIB.DIRS+"\PCIBILC.BLD" 

7  BLOAD  I$,I 

8  CALL  I(PCIB.DIR$J%J%):PCIB.SEG=I% 

9  IF  J%=0  THEN  GOTO  13 

10  PRINT  "UNABLE  TO  LOAD."; 

1 1  PRINT  "    (ERROR  #";J%;")" 

12  END 
13' 

14  DEF  SEG=PCIB.SEG:O.S=5:C.S=10:I.V=15 

15  I.C=2O:L.P=25:LDEILE=30 
16GET.MEM=35:L.S=40:PANELS=45:DEF.ERR=50 

17  PCIB.ERRS=STRINGS(64,32) :  PCIB. NAMES=STRINGS(  16,32) 

18  CALL  DEF.ERR(PCIB.ERRJ>CIB.ERRSPCIBJVIAMES,PCIB.GLBERR)  :  PCIB.BASERR=255 

19  ON  ERROR  GOTO  3 
20J=-1 

21  I$=PCIB.DIRS+"\PCIB.SYN" 

22  CALL  O.S(IS) 

23  IF  PCIB.ERR<>0  THEN  ERROR  PCIB.BASERR 
241=0 

25  CALL  I.VGJlEAD.REGISTER,READ.SELnD,DEFINE,INITIALIZE.SYSTEM) 

26  IF  PCIB.ERR<>0  THEN  ERROR  PCIB.BASERR 

27  CALL  I.V(I,ENABLE.SYSTEM JJISABLE.SYSTEMJNITIALIZE.POWER.ON) 

28  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

29  CALL  I.V(I,MEASURE,OUTPUT,START,HALT) 

30  IF  PCIB.ERR<>0  THEN  ERROR  PCIB.BASERR 
Sl.CALLI.VQ^NABLE.INT.TRIGGERJ^ISABLE.INT.TRIGGERF-NABLE.OUTPUT.DISABLE.OUTT) 

32  IF  PCIB.ERR<>0  THEN  ERROR  PCIB.BASERR 

33  CALL  I.Va,CHECK.DONE,GET.STATUS,SET.FUNCT10N)SET.RANGE) 

34  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

35  CALL  I.Va,SET.MODE,WRITE.CAL,READ.CAL,STORE.CAL) 

36  IF  PCIB.ERR<>0  THEN  ERROR  PCIB.BASERR 

37  CALL  I.V(IJ)ELAY,SAVE.SYSTEMJJ) 

38  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 
391=1 

40  CALL  I.V(I,SET.GATETIME,SET.SAMPLES,SET.SLOPE,SET.SOURCE) 

41  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

42  CALL  I.CaJ7REQUENCY,AUTO.FREQJ>ERIOD,AUTO.PER) 

43  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

44  CALL  I.CaJNTERVALJlATIO,TOTALIZE,R100MILLI) 

45  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

46  CALL  I.C(I,R1,R10,R1(XLR1KILO) 

47  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

48  CALL  I.C(I,R10MEGA,R100MEGA,CHAN.A,CHAN.B) 

49  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

50  CALL  I.C(l,POSrnVE,NEGATIVE,COMN,SEPARATE) 


113 


51  IF  PCIB.ERR<>0  THEN  ERROR  PCIB.BASERR 

521=2 

531=3 

54  CALL  I.VaZERO.OHMS,SET.SPEEDJ,J) 

55  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

56  CALL  I.C(I,DCVOLTS,ACVOLTS,OHMSR200MILLI) 

57  IF  PCIB.ERR<>0  THEN  ERROR  PCIB.BASERR 

58  CALL  I.C(I,R2,R20,R200,R2KILO) 

59  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

60  CALL  I.Ca#20KILO,R200KILO,R2MEGA,R20MEGA) 

61  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

62  CALL  I.C(l,AUTOM,R2.5,R12.5,J) 

63  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 
641=4 

65  CALL  I.V(I,SET.COMPLEMENT,SET.DRIVER)OUTPUT.NO.WAIT,ENABLE.HANDSHAKE) 

66  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

67  CALL  I.V(IT)ISABLE.HANDSHAKE,SET.THRESHOLD,SET.START.BIT,SET.NUM.BITS) 

68  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

69  CALL  I.Va.SET.LOGIC.SENSEJJJ) 

70  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

71  CALL  I.C(I,POSrnVE,NEG ATI VE.TWOS .UNSIGNED) 

72  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

73  CALL  I.C(I,OC,TTLR0,Rl) 

74  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

75  CALL  I.C(IR2R3R4,R5) 

76  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

77  CALL  I.C(IR6R7R8,R9) 

78  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

79  CALL  I.C(IR10R11,R12,R13) 

80  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

81  CALL  I.C(I,R14R15R16J) 

82  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 
831=6 

84  CALL  I.V(I,SET.FREQUENCY,SET.AMPLITUDE,SET.OFFSET,SET.SYMMETRY) 

85  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

86  CALL  I.V(I,SET.BURST.COUNTJ JJ) 

87  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

88  CALL  I.C(I,SINE,SQUARE,TRIANGLE,CONTINUOUS) 

89  IF  PCIB.ERR0O  THEN  ERROR  PCIB.BASERR 

90  CALL  I.Ca,GATED3URSTJ J) 

91  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 
921=7 

93  CALL  I.VaAUTOSCALE.CALIBRATE.SET.SENSnTVITY.SET.VERT.OFFSET) 

94  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

95  CALL  I.Va,SET.COUPLING)SET.POLARrrY,SET.SWEEPSPEED,SET.DELAY) 

96  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 
97CALLI.Va,SET.TRIG.SOURCE,SET.TRIG.SLOPE,SET.TRIG.LEVEL,SET.TRIG.MODE) 

98  IF  PCIB£RR<>0  THEN  ERROR  PCIB.BASERR 

99  CALL  I.V(I,GET.SINGLE.WF,GET.TWO.WF,GET.VERT.INFO,GET.TIMEBASE.INFO) 

100  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

101  CALL  I.Vfl,GET.TRIG.INFO,CALC.WFVOLT,CALC.WFTIME,CALC.WF.STATS) 

102  IF  PCIB£RR<>0  THEN  ERROR  PCIB.BASERR 

103  CALL  I.Va,CALC.RISETIME,CALC.FALLTIME,CALC.PERIOD,CALC.FREQUENCY) 

104  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 
lOSCALLI.VCI.CALC.PLUSWIDTH.CALC.MINUSWIDTH.CALC.OVERSHOOT.CALC.PRESHOOT) 
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106  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

107  CALL  I.Va.CALCPK.TO.PK.SET.TIMEOUT.SCOPE.START.MEASURE.SINGLE.WF) 

108  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

109  CALL  I.V(I,MEASURE.TWO.WFJ  J  J) 

110  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

111  CALL  I.C(I,R10NANO,R100NANOR1MICROR10MICRO) 

112  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

113  CALL  I.C(IR100MICROR1MILLI^10MILLIR100MILLI) 

114  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

115  CALL  I.C(I,R1,R10R20NANO,R200NANO) 

116  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

117  CALL  I.C(1,R2MICROR20MICRO,R200MICRO,R2MILLI) 

118  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

119  CALL  I.C(I,R20MILLI,R200MILLI,R2,R20) 

120  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

121  CALL  I.C(I,R50NANO,R500NANO,R5MICROR50MICRO) 

122  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

123  CALL  I.Ca^500MICROR5MILLI^50MILLIR500MILLI) 

124  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

125  CALL  I.C(I,R5,R50,CHAN.A,CHAN.B) 

126  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

127  CALL  I.C(IEXTERNALROSrriVE,NEGATIVE,AC) 

128  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

129  CALL  I.CaX>C,TRIGGEREDAUTO.TRIG^UTO.LEVEL) 

130  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

131  CALL  I.C(I,X1,X10,STANDARD,AVERAGE) 

132  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 
133 1=8 

134  CALL  I.Va,OPEN.CHANNEL,CLOSE.CHANNELJJ) 

135  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

136  CALL  C.S 

137  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

138  IS=PCIB.DIRS+"\PCIB.PLD" 

139  CALL  L.P(IS) 

140  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

141  IS="DMM.01":I=3:J=0:K=0:L=1 

142  CALL  DEFINE(DMM.01,IS,U,KtL) 

143  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

144  IS="FUNC.GEN.01  ":I=6:J=0:K=1:L=1 

145  CALL  DEFINE(FUNC.GEN.01  JS.UJCJL) 

146  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

147  I$="SCOPE.01":I=7:J=0:K=2:L=1 

148  CALL  DEFTNE(SCOPE.01,ISJJ,K,L) 

149  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

150  I$="COUNTER.01":I=l:J=O:K=3:L=l 

151  CALL  DEFTNE(COUNTER.01,I$,U,K,L) 

152  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

153  I$="DIG.IN.01":I=4:J=0:K=4:L=1 

154  CALL  DEFTNE(DIG.IN.01,I$,UJCJL) 

155  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

156  I$=nDIG.OUT.01":I=4:J=l:K=4:L=l 

157  CALL  DEFINE(DIG.OUT.01  J$,U,KL) 

158  IF  PCIBERRoO  THEN  ERROR  PCIB.BASERR 

159  IS="RELAY.ACT.0r:I=8:J=O:K=5:L=l 

160  CALL  DEFTNE(RELAY.ACT.OUS,UJCX) 
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161  IF  PCIB.ERR<>0  THEN  ERROR  PCIB.BASERR 
162I$="RELAY.MUX.01":I=2:J=0:K=6:L=1 

163  CALL  DEFINE(RELAY.MUX.01,I$JJ,KL) 

164  IF  PCIB£RR<>0  THEN  ERROR  PCIB.BASERR 

800  I$=ENVIRON$("PANELS")+"\PANELS.EXE" 

801  CALL  L.S(I$) 

899  GOTO  2 

900  IF  ERR=PCIB.BASERR  THEN  GOTO  903 

901  PRINT  "BASIC  ERROR  #";ERR;"  OCCURRED  IN  LINE  ";ERL 

902  STOP 

903  TMPERR=PCIBERR:IF  TMPERR=0  THEN  TMPERR=PCIB.GLBERR 

904  PRINT  "PC  INSTRUMENT  ERROR  #";TMPERR;"  DETECTED  AT  LINE  ";ERL 

905  PRINT  "ERROR:  ";PCIB.ERR$ 

906  IF  LEFT$(PCIB.NAME$,1)<>CHR$(32)  THEN  PRINT  "INSTRUMENT:  ";PCIB .NAMES 

907  STOP 

908  COMMON  PCIB.DIRS.PCIB.SEG 

909  COMMON  LD.FILE,GET.MEM,PANELS,DEF£RR 

910  COMMON  PCIB.BASERR,PCIB.ERR)PCIB.ERR$,PCIB.NAME$,PCIB.GLBERR 

911  COMMON  READJIEGISTER^EAD.SELHD.DEFINE.INITIALIZE.SYSTEM, 

ENABLE.SYSTEM.DISABLE.SYSTEM,INmALIZE,POWER.ON,MEASURE,OUTPUT, 

START,HALT£NABLE.INT.TRIGGER,DISABLE.INT.TRIGGER£NABLE.OUTPUT, 

DISABLE.OLTTUT.CHECK.DON^GET.STATUS 

912  COMMON  SET.FUNCnON,SET.RANGE,SET.MODE,WRITE.CAL,READ.CAL, 

STORE.CAL,DELAY,SAVE.SYSTEM,SET.GATETlME,SET.SAMPLES,SET.SLOPE, 
SET.SOURCE,ZERO.OHMS,SET.SPEED,SET.COMPLEMENT,SET.DRIVER, 
OUTPUT.NO.  WAIT£NABLE.HANDSHAKEJ)ISABLE.HANDSHAKE 

9 1 3  COMMON  SET.THRESHOLD,SET.START.BIT,SET.NUM.BITS ,SET.LOGIC.SENSE, 

SET.FREQUENCY,SET.AMPLITUDE,SET.OFFSET,SET.SYMMETRY, 
SET.BURST.COUNT,AUTOSCALE  .CALIBRATE, SET.  SENSITIVITY, 
SET.VERT.OFFSET,SET.COUPLING,SET.POLARITY,SET.SWEEPSPEED 

914  COMMON  SET.DELAY,SET.TRIG.SOURCE,SET.TRIG.SLOPE,SET.TRIG.LEVEL, 

SET.TRIG.MODE,GET.SINGLE.WF,GET.TWO.WF,GET.VERT.INFO, 

GET.TIMEBASE.INFO,GET.TRIG.INFO,CALC.WFVOLT,CALC.WFTIME, 

CALC.WF.STATS,CALC.RISETIME,CALC.FALLTIME,CALC.PERIOD 

915  COMMON  CALC.FREQUENCY,CALC.PLUSWIDTH,CALC.MINUSWIDTH, 

CALC.OVERSHOOT,CALCPRESHOOT,CALC.PK.TO.PK,SET.TIMEOUT, 

SCOPE.START,MEASURE.SINGLE.WF,MEASURE.TWO.WT,OPEN.CHANNEL, 

CLOSE.CHANNEL 

916  COMMON  FREQUENCY,AUTO.FREQPERIOD^\UTO.PER,INTERVAL,RATIO, 

TOTALIZE  ,R100MIIXI,RlJU0,R10031KILO,R10MEGA,R100MEGA,CHAN.A) 

CHAN.BJ>OSITIVE,NrEGATIVE,COMN,SEPARATE,DCVOLTS(ACVOLTS,OHMS, 

R200MILLI,R2,R20,R200,R2KILO,R20KILO,R200KILO 

917  COMMON  R2MEGAJl20MEGA,AUTOMrR2.5^12.5tPOSrnVE,NEGATIVE,TWOS, 

UNSIGNED,OC,TTLP0,RiP2,R3,R4,R5^6tR738P9^10tRlLR12pi3P14,R15, 
R 1 6,SINE,SQUARE,TRIANGLE,CONTINUOUS  ,G  ATED.BUR  STJ^  10NANO, 
R 1 0ON  ANO.R  1  MICROS  1 OMICRO  J*  100MICRO 

918  COMMON  RlMILLI,R10MnXI,R100MILLI,Rl,R10,R20NANO,R200NANO,R2MICRO, 

R20MICROJ1200MICRO)R2MILLIP20MILLI^200MILLI,R2,R20P50NANO, 
R500NANO^5MICROJ*50MICROP5()0MICRO,R5MILLItR50MILLI,R500MILLI,R5, 
R50.CHAN.A.CHAN.B  EXTERN  ALJ>OSrnVE 

919  COMMON  NEGATIVEAC.DCTRIGGEREDAUTO.TRIG.AUTOLEVTL.Xl^lO, 

STAND  ARD.AVERAGE 

920  COMMON  DMM.01  .FUNC.GEN.Ol .SCOPE.01  .COUNTER.OI ,DIG.IN.01  ,DIG.OUT.01, 

RELAY.ACT.01  .RELAY.MUX.01 
999  END  PCIB  PROGRAM  SHELL 
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1000  REM  THIS  STEP  INITIALZES  THE  HP  SYSTEM 

1010  REM  THIS  STEP  INITIALZES  THE  HP  SYSTEM 

1020  CLS 

1030  OPTION  BASE  1 

1040  DIM  P(10) PA(50,6) PP(50,6),XPT(40),CAL(40) 

1050  CALL  INrriALIZE.SYSTEM(PGMSHEL.HPC) 

1060  REM 

1070  REM  ALL  PC  DEVICES  NOW  HAVE  AN  INITIAL  STATE 

1080  REM  SET  FUNCTION  ON  THE  DMM  AND  RELAY  MUX 

1090  REM 

1100  CALL  SET.FUNCTION(DMM.01  XXTVOLTS) 

1110  CALL  SETRANGE(DMM.01  .AUTOM) 

1 120  CALL  DISABLE.INT.TRIGGER(DMM.01) 

1 130  CALL  ENABLE.OUTPUT(RELAY.MUX.01) 

1  140  FOR MATSi- "ttM    Htt  ttttnn    utt  HHt±b    HU  iiiiUU    ttti  ####    ttM  ttMMtt    Hit  Utttttt" 

1   L*T\J    F\yI\l»JjA  1  J)—      TTTT        TrTT  .TrTT  TrTT        TTTT  .TrTT  TTTT        TrTT  .TTfTTTTT        TrTr  .TrTTTTTT        TrTf  . TT TT TT TT        TTTT  .TTTTTrTr 

1200  FOR  1=1  TO  10 

1210CAL(I)=0.0 

1220  NEXT  I 

1510  REM 

1520  REM  READ  THE  VOLTAGE  OF  48TH  CHANNEL  AND  DISPLAY  THE  DATA 

1530  REM 

1540  PRDST  "  CHOOSE  6  POPNTS" 

1550  PREST 

1550  PRINT  "THE  CALIBRATION  WILL  BE  STORES  PW  'CAL.DAT" 

1560  REM 

1570  REM  BEGDv  SAMPLING  LOOP 

1580  REM 

1600  FOR  J=l  TO  1 

1610  PREsT 

1630  FOR  JJ=1  TO  6 

1631  INPUT  "INPUT  THE  CALIBRATION  PRESSURE";CAL(JJ) 

1632  INPUT  "PRESS  ENTER'  TO  START  MEASUREMENT" ;MOVES 
1640  FOR  11=1  TO  10 

1650  ROUT=l 

1660  CALL  OUTPUT(RELAY.MUX.01,ROUT) 

1670  CALL  ME ASURE(DMM.01, VOLTS) 

1680PA(TIJJ)=VOLTS 

1690  NEXT  II 

1700  IF  JJ=6  THEN  1740 

1730  NEXT  JJ 

1740  REM 

1750  REM  DISPLAY  THE  SAMPLE  DATA 

1760  REM 

1780  FOR  IS=  1  TO  10 

1790  PRINT  USING  FORMATS;ISPAaS,l)PAaS^)J>AaS,3)J>AaS4)PA(IS,5)PAaS,6) 

1800  NEXT  IS 

1810  REM 

1820  REM  AVERAGE  THE  DATA 

1830  REM 

1840  FOR  JA  =  1  TO  6 

1850  TOTAL  =  0 

1860  FOR  IA=  1  TO  10 

1870  TOTAL  =  TOTAL  +  PAG  A  J  A) 

1880  NEXT  IA 

1890  AVERAGE  =  TOTAL  /10 
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1900  P(JA)= AVERAGE 

1920  NEXT  JA 

1930  PRINT 

1940  PRINT  "THE  AVERAGE  ARE:  " 

2000  FOR  JD=1  TO  6 

2010PP(JJD)=P(JD) 

2020  NEXT  JD 

2055  PRINT  USING  FORMAT$;JJ>P(J,l)J>P(J^)J>P(J,3)PP(J,4),PP(J,5),PP(J,6) 

2070  PRINT 

2080  INPUT  "DO  YOU  WANT  RE-MEASURE  AGAIN  ?  (Y  /  N)";C$ 

2090  IF  C$="Y"  THEN  1580 

2101  REM***  STORE  DATA  BEFORE  NEXT  SAMPLE*** 

2102  OPEN  "A:\CAL.DAT"  FOR  OUTPUT  AS  #2 
2106FORID=lTO6 

2107  PRINT  #2,USING  FORMAT$;ID,PP(J,ID),CAL(ID) 

2108  NEXT  ID 

2109  CLOSE  #2 
2210  NEXT  J 
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APPENDIX  C.    CONVERT  PROGRAM 

THIS  PROGRAM  CONVERTS  THE  VOLTAGE  OF  TRANSDUCER  INTO  PHYSICAL 
PRESSURE,VELOCrrY,YAW  ANGLEJ>ITCH  ANGLE/TOTAL  PRESSURE  .TOTAL    PRESSURE 
COEFFICIENT.STATIC  PRESSURE  AND  STATIC  PRESSURE  COEFFICIENT.THOSE  DATA  ARE 
USED  TO  PLOT  VELOCITY  MAPPING  AND  PRESSURE  CONTOUR. 

CHARACTER*  12  FNAME 
CHARACTER*  12  NAME 
CHARACTER*2  A(13) 
CHARACTER*80  ST 

REAL  LO.PI J>F,TI,TFJCJE 

DATA  A/0r>,02,;03',,O4,,,05,,'O6',,07,;08';O9', 

*       '107117127137 

NAME='R0B  1A100.DAT 

*  CONVERT  THE  PRESSURE  UNIT  FROM  INHG  TO  PSF 

PI=29.81 

PF=29.89 

PATM=(PI+PF)*2.54*27.845/2. 

K=0.889 

E=0.0123 

R=1718 

TI=62 

TF=68 

T=(TI+TF)/2.+460 

LO=PATM/(R*T) 

*  OPEN  A  NEW  FILE  TO  STROE  THE  REDUCED  DATA 

OPEN(2JTLE='RESULT0.DAT,STATUS='NEW') 

*  OPEN  A  SEQUENTIAL  OF  DATA  FILE 

DO  20  1=1,13 
NAME(7:8)=A(I) 
FNAME=NAME 
OPEN(  1  JILE=FN  AME) 
READ(1,100)ST 
100     FORMAT(A65) 

15       READ(1,1000£ND=30)NO,X,Y,V1,V2,V3,V4,V53ETA 
1000      FORMAT(I2,F7.2>F6.2,5F9.3,F8.2) 

*  CONVERT  THE  VOLTAGE  TO  PRESSURE  IN  LBF/FT**2 

P1=DELTAP(V  1)*2.0475+PATM 
P2=DELTAP(V2)*2.0475+PATM 
P3=DELTAP(V3)*2.0475+PATM 
P4=DELTAP(V4)*2.0475+PATM 
P5=DELTAP(V5)*2.0475+PATM 

*  CALCULATE  THE  PnCH  ANGLE  IN  DEGREE 

P=(P4-P5)/(P1-P2) 
ALPHA=FPrrCH(P) 

*  CALCULATE  THE  VELOCrTY  IN  FT/SEC 

YSLOP=FYSLOP(ALPHA) 
VELM=SQRT((2*  YSLOP*(Pl  -P2))/(LO*K)) 
VEL=  VELM*(  1 +E) 

*  CALCULATE  THE  FREE  STREAM  AND  LOCAL  DYNAMIC  PRESSURE 
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QM1=7.2*2.0475/K 
QM=LO*VEL**2/2. 
Q1=QM1*(1+2*E) 
Q=QM*(1+2*E) 

*  CALCULATE  THE  YAW  ANGLE  IN  DEGREE 

YAW=FYAW(BETA) 

*  CALCULATE  THE  LOCAL  TOTAL  PRESSURE  COEFFICIENT 

PTC=FPT(ALPHA) 
PT1=P1-Q*PTC 
PT=PT1/144 
CPT=(PT1-PATM-Q1)/Q1 

*  CALCULATE  THE  LOCAL  STATIC  PRESSURE  COEFFICIENT 

PS1=PT1-Q 
PS=PS1/144 
CPS=(PS1-PATM)/Q1 

WRITE(2,2000)NO,X,Y,VEL,YAW,ALPHA,PT,CPT,PS,CPS 
2000     FORMAT(I5,9F10.3) 

GO  TO  15 
30     CLOSE(l) 
20     CONTINUE 
CLOSE(2) 
STOP 
END 

*  THIS  FUNCTION  CONVERT  THE  VOLTAGE  TO  PHYSICAL  PRESSURE 

FUNCTION  DELTAP(X) 
REAL  DELTAP,X 

DELTAP=0.02 1444 .232 1*X 
END 

*  THIS  FUNCTION  CALCULATES  THE  PITCH  ANGLE 

FUNCTION  FPITCH(X) 
REAL  FPITCH,X 

FPITCH=3.759+53.7568*X-1.3085*X**2-1.6583*X**3 
*  -0.8061*X**4+16.5115*X-*5 

END 

*  THIS  FUNCTION  CALCULATES  THE  VELOCITY  PRESSURE  COEFFICENT 

FUNCTION  FYSLOP(X) 
REAL  FYSLOP,X 
IF(X.LT.-10)THEN 

FYSLOP=0.981-0.0102*X-3.000E-4*X**2-2.500E-6*X**3 
ELSE  IF((X.GE.-10).AND.(XLE.10))THEN 

FYSLOP=0.98-0.006*X+2.000E-4*X**2 
ELSE 

FYSLOP=0.9801-0.0035*X-1.143E-4*X**2+5.833E-6*X**3 
END  IF 
END 

*  THIS  FUNCTION  CALCULATES  THE  YAW  ANGLE 

FUNCTION  FYAW(X) 
REAL  FYAW.X 

IF((X.GE.0).AND.(X.LE.180))  THEN 
FYAW=-X 
ELSE 
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FYAW=360-X 
END  IF 
END 

*  THIS  FUNCTION  CALCULATES  THE  TOTAL  PRESSURE  COEFFICIENT 
FUNCTION  FPT(X) 
REALFPT.X 
IF(XLE.-30)  THEN 

FPT=-0.01 
ELSE  IF((X.GT.-30).AND.(X.LT.-20))  THEN 

FPT=0.02+1.00E-3*X 
ELSE  IF((X.GE.-20).AND.(XLE.30))  THEN 

FPT=0 
ELSE 

FPT=O.03-l.O0E-3*X 
END  IF 
END 
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APPENDIX  D.    PRESSURE  PROBE  CALIBRATION  CHART 


pi-pt 


pt  -  r 

t         s 


.80 
60 


CALIBRATION  DATA  TOR  TYPE  DA  &  DAT  3-DIMENSlONAt.  DIRECTIONAL  PROBES 
-50e    -40»    -30*    -20»    -10*       0»    +  10e    +20*    +  30,+40e    +50,:jpi 


^■HiHhht-^'h-I.UlT.1.'1!: 


iPITCH  ANGLE  PRESSURE  COEFFICIENT 
VS.  UTOII  ANGLE 

.^VELOCITY  PRESSURE  COErriCIENi  I,, 
vs.  nrcii  ANGLE 
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PROBE  TYPE:  l>ft- RS 
SERIAL  NO.:  ^-2233"2 
DATE:      (o-30-9B 
CALIB.  BY:   Vv  l^eWo- 
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APPENDIX  E.    REVX  PROGRAM 

*  OPEN  A  OLD  FILE  TO  REVERSE  THE  X  COORDINATE 
INTEGER  A(300) 

REAL  B(300),C(300)  J)(300),TEMP(500) 
REALE(300)F(300),G(300),H(300),P(300),Q(300) 
OPEN(l  .FH^'RESULTO-DAT') 
OPEN(2JTLE='Pl.DAT,,STATUS=,NEW) 
DO  40  K=  1,299 
READ(1,1000)NO,X,Y,VEL,YAW,ALPHAJ>T)CPTPS,CPS 
1000     FORMAT(I5,9F10.3) 
A(K)=NO 
B(K)=X 
C(K)=Y 
D(K)=VEL 
E(K)=YAW 
F(K)=ALPHA 
G(K)=PT 
H(K)=CPT 
P(K)=PS 
Q(K)=CPS 
40  CONTINUE 
CLOSE(l) 
N=299 
ICOUNT=N 
DO  10I=1,N 
TEMP(I)=B(ICOUNT) 
ICOUNT=ICOUNT-l 
10  CONTINUE 
DO  20  1=1  ,N 
B(I)=TEMP(I) 
20  CONTINUE 
DO50J=l,N 

WRITE(2,2000)J3(J),C(J),D(J)3(J)F(J),H(J),Q(J) 
2000     FORMATa5,7F10.3) 
50  CONTINUE 
CLOSE(2) 
END 
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APPENDIX  F.    XPLANE  PROGRAM 

CHARACTER*  14  FNAME 
REALY(500)^(500),YN(500)2N(500),V(500),VXP(500)f 

BETA(500),ALPHA(500),VX  1  (500),VY(500),VZ(500) 
C 

PI  =  4.*ATAN(1.) 

WRITE(*,'(A\)')'  INPUT  DATA  FILE?  (D:FILENAME.EXT):  ' 

READ(*/(A14)')  FNAME 

OPEN(5JTLE=FNAME,STATUS='OLD') 

WRITE(*;(A\)')'  OUTPUT  FILE  NAME?  (D:FILENAME.EXT):  ' 

READ(*,'(A14)')  FNAME 

OPEN(6,FTLE=FNAME,STATUS='NEW,) 
C 

READ(5,100>  NDATA 

VXMAX  =  0.0 
C 

DO  500 1=1  .NDATA 

READ(5,101 )  I,Y(I),Z(I),V(I),BETA(I),ALPHA(I) 

C FIND  CROSSPLANE  VELOCITY'  COMPONENT,  VXP 

C CONVERT  DEGREES  TO  RADIANS 

BETA(I)  =  BETA(T)*PI/180. 

ALPHA(I)  =  ALPHA(I)*PI/180. 

SB  =  SIN(BETA(I)) 

SA  =  SIN(ALPHA(I)) 

VZ(I)  =  V(I)*SA 

VY(I)  =  SQRT(V(I)**2-VZ(I)**2)*SB 

VX1(I)  =  SQRT(VY(I)**2+VZ(I)**2) 

VXP(I)  =  VX1(I) 
C FIND  THE  LARGEST  CROSSPLANE  VELOCITY  COMPONENT 

IF(VXP(I).GT. VXMAX)  VXMAX  =  VXP(I) 
500  CONTINUE 
C 
C NORMALIZE  CROSSPLANE  COMPONENTS  TO  A  MAXIMUM  VALUE  OF  1 

DO510I=l,NDATA 

VXP(I)  =  VXP(I)/VXMAX 
510  CONTINUE 
C 

C NORMALIZE  CROSSPLANE  VELOCITY  TO  A  SPECIFIED  FRACTION  OF  ONE 

C GRID  STEP  FOR  PLOTTING.  ASSUME  CONSTANT  SIZE  STEP. 

C 

WRrrE(*,'(A\)y  what  is  the  probe  grid  step  size  (in.)?.-  ■ 

READ(V)  STEP 

WRITE(*,,(A)')'  WHAT  FRACTION  OF  GRID  STEP  IS  MAX  VELOCnY  FOR' 
WRrrE(*,'(A\)7  PLOTTING?  (LIKE  0.5,  ETC.):  ' 
READ(V)  FRAC 
DO520I=l,NDATA 
VXP(I)  =  FRAC*  STEP*  VXP(I) 
520  CONTINUE 

C DIVIDE  PLOTTING  VELOCnY  INTO  COMPONENTS  FOR  COORDINATES 

DO530I=l,NDATA 

YN(I)  =  Y(D+VY(I)/VX1(I)*VXP(I) 
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zno)  =  za)+vz(i)^/xia)*vxpa) 

530  CONTINUE 
C STORE  OUTPUT  FOR  PLOTTING  BY  "ARROW 

WRITE(6,100)NDATA 

DO540I=l,NDATA 

WRITE(6,101)I,Y(I)2(I),YN(I)ZN(I) 
540  CONTINUE 

100  FORMAT(I5) 

101  FORMATa5,5F10.3) 
CLOSE(5) 
CLOSE(6) 

STOP 
END 
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APPENDIX  G.    ARROW  PROGRAM 

c 

C     THIS  PROGRAM  PLOTS  DATA  IN  THE  FORM  OF  VELOCrTY  VECTORS. 
C     INPUT  Y-Z  POSITION,  VELOCmES,  AND  YAW  AND  PITCH  ANGLES. 
C 

CHARACTER*  14  NAME.FNAME 

C SF  IS  THE  PHYSICAL  SCALE  FACTOR  BETWEEN  DATA  AND  PAPER. 

C 0.025  MM  =  ONE  PLOTTER  UNIT. 

WRrrE(V(A)')'  THE  SCALE  FACTOR  SCALES  THE  PHYSICAL  DIMENSIONS' 

writer, '(A)1)'  to  fit  the  page: 

WRTTE(*;(A\)'y  DESIRED  SCALE  FACTOR?  (FOR  EXAMPLE,  0.5):  ' 

READ(*,*)  SF 

FACT  =  25.4  *  SF  /  0.025 

WRrTE  (*.60) 
60     FORMAT  ('  ARROW  HEAD  LENGTH  =  ?  (0.075  IS  A  TYPICAL  VALUE)*) 

READ  (*,*)  HEAD 

HEAD  =  25.4  *  HEAD  /  0.025 

WRITE  (*,70) 
70     FORMAT  ('  ARROW  HEAD  WEDGE  ANGLE  =  ?  (30  DEG  IS  TYPICAL)') 

PI  =  4.0*ATAN(1.0) 

READ  (* ,*)  ANGLE 

ANGLE  =  ANGLE  *  PI  /  180.0 

C "YREFZREF"  IS  THE  INITIAL  (REFERENCE)  POINT  RELATIVE  TO  WHICH 

C ALL  DATA  ARE  PLOTTED.  (0.0)  IS  ASSUMED. 

WRITER, '(A)')'  COORDINATES  ARE  ASSUMED  TO  BEGIN  WITH  0,0  IN  THE' 

WRITE(*,'(A)7  FAR  LOWER  LEFT  CORNER.   IF  THIS  OK,  TYPE  1.   IF 

WRITE(*,'(A\)')'  AN  OFFSET  IS  DESIRED,  TYPE  0:  ' 

READ(*,*)  NCOORD 

IF(NCOORD.EQ.l)  GO  TO  150 

WRITE(*,'(A\)7  DESIRED  SHIFTED  ZERO  REFERENCE?  (IE,  -2.,-2.):  ' 

READ  (*,*)  YREFZREF 

GOTO  151 
150YREF  =  0.0 

ZREF  =  0.0 

151  CONTINUE 

C      WRITE  (*,200) 

C200  FORMAT  ('  OUTPUT  DATA  FTLE?:  ') 
C      READ  (*,*)  NAME 
C      CALL  ZINTT  (TPLOT JPORTJSfAME) 

NAME  =  'B:PLOT.DAT 

CALL  ZINTT  ( 1 , 1  .NAME) 

CALL  ZVS(12.0) 
300  WRITE  (*/(A\)')'  INPUT  DATA  FTLE?  (D:FTLENAME.EXT): ' 

READ  (*,'(A14)')  FNAME 

OPEN  (5rFTLE=FNAME,STATUS='OLDt) 
C 

C       THIS  IS  THE  PROGRAM  PROPER 
C 

READ(5,102)  NDATA 
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DO  4001  =  l.NDATA 

READ  (5,102)  I,  Y,  Z,  YN  ,  ZN 
102  FORMATa5,4F10.0) 
C 
C      THIS  SECTION  PLOTS  THE  TAIL  OF  THE  ARROW  (PEN  UP) 

CALL  ZPU 

DC  =  NINT((Y  +  YREF)  *  FACT) 

IY  =  NINT((Z  +  ZREF)  *  FACT) 

CALL  ZPA  (DCJY) 
C      THIS  SECTION  PLOTS  THE  SHAFT  OF  THE  ARROW  (PEN  DOWN) 

CALLZPD 

DC  =  NINT((YN  +  YREF)  *  FACT) 

IY  =  NINT((ZN  +  ZREF)  *  FACT) 

CALL  ZPA  (DCJY) 
C      THIS  SECTION  PLOTS  THE  HEAD  OF  THE  ARROW 

CALLZPD 

IF(ABS(YN-Y).GT.0.0001)GO  TO  250 

ALPHA  =  -PI/2. 

IF(ZN.GT.Z)  ALPHA  =  PI/2. 

GO  TO  251 

250  ALPHA  =  ATAN(  (ZN  -  Z)/(YN  -  Y)  ) 

251  IF  ( (YN-Y).GE.O.O  )THEN 

DCU  =  DC  -  NINT(HEAD  *  COS  (ALPHA  -  ANGLE)) 
IYU  =  IY  -  NINT(HEAD  *  SIN(ALPHA  -  ANGLE)) 

ELSE 
IXU  =  IX  +  MNT(HEAD  *  COS  (ALPHA  -  ANGLE)) 
IYU  =  IY  +  NINT(HEAD  *  SIN(ALPHA  -  ANGLE)) 

ENDIF 

CALL  ZPA  (TXU  JYU) 


CALL  ZPU 
CALL  ZPA  (IX  JY) 
CALL  ZPD 

IF  (  (YN-Y).GE.O.O  )THEN 
DCU  =  DC  -  NTNT(HEAD  *  COS  (ALPHA  +  ANGLE)) 
IYU  =  IY  -  NINT(HEAD  *  SIN( ALPHA  +  ANGLE)) 
ELSE 
IXU  =  IX  +  NINT(HEAD  *  COS(ALPHA  +  ANGLE)) 
IYU  =  IY  +  NINT(HEAD  *  SIN(ALPHA  +  ANGLE)) 
ENDIF 

CALL  ZPA  (IXUJYU) 
C 
400    CONTINUE 

C CLOSE  UP  SHOP 

CALL  ZPU 
CALLZFTN1S 
CLOSE  (5) 
STOP 
END 
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APPENDIX  H.    RUN  MATRIX 


Test  Run 

Grid  #0 

Grid  #1 

1 

Date 

Nov.  18,  1988 

Nov.  25,  1988 

Nov.  26,  1988 

2 

Start/End  Time 

1526/2148 

0830/1821 

0143/1115 

3 

Twi/Twf 

62/66 

62/68 

62/78 

4 

Po(in  Hg) 

30.14/30.19 

29.81/29.89 

29.97/30.06 

5 

PH20  (cm) 

7.2 

7.2 

10 

6 

Grid# 

0 

0 

1 

7 

Missile  configuration 

B 

B 

B 

8 

AoA 

50° 

50° 

50° 

9 

Measured  dimension 

6.5"x8" 

3"x5.5" 

3"x5.5" 

10 

Step  distance 

0.5" 

0.25" 

0.25" 

11 

Data  file  name 

R0B1B2O1.DAT 

to 
R0B1B214.DAT 

R0B1A101.DAT 

to 
R0B1A113.DAT 

R1B1A101.DAT 
to 

R1B1A113.DAT 

12 

Calibration  file  name 

CALDATT1.DAT 
CALDATT2.DAT 

CAL0B.DAT 
CAL0A.DAT 

CAL1B.DAT 
CAL1A.DAT 
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